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APHESENTAÇAS 


A grande maioria dos usuários de microcom- 
putadores MSX nunca teve outro micro antes. Apesar de 
terem entrado no mundo da computação pela porta da 
frente, é provável que esses usuários tenham alguma 
dificuldade inicial para programar suas máquinas. 
Poucos deles têm, de imediato, uma visão muito clara 
dos poderosos recursos de que dispõem. 

Este livro contém mais de cem dicas de 
programação já prontas para serem usadas. Elas 
permitem um aproveitamento muito maior dos recursos 
dos MSX mesmo pelos usuários iniciantes e, certamente, 
acrescentam conhecimentos valiosos aos programadores 
mais experientes 

Apesar de serem geralmente independentes umas das 
outras, as dicas estão agrupadas em 7 pítulos. de 
acordo com a função a que elas se destinam. 

O leitor poderá usá-las em outros programas para 
otimizá-los ou obter resultados específicos. 

Cada dica está apresentada de forma bem prática e 
resumida de modo a tornar seu uso imediato muito 
fácil. As explicações nem sempre são detalhadas mas 
sempre que possível, faz-se referência a textos de 
outros livros onde o assunto é comentado mais 
extensamente. 

Apesar de muitas dicas serem programas em 
Linguagem de Máquina, optamos pelo uso exclusivo da 
linguagem BASIC para gerá-las. Isso torna a digitação 
mais fácil e o uso mais imediato. Todos os programas 
estão em BASIC, mas mesmo assim, para diminuir a 
ocorrência de erros de digitação, junto a cada 
listagem pode-se encontrar em “vídeo inverso” sua SOMA 
SINTÁTICA. As explicações sobre a produção e uso dessa 
“soma” são dadas na dica 7.1 (página 17B) e ela é, 
portanto, a primeira dica que deve ser lida. 

Lembre-se que a SOMA TOTAL de um programa, mesmo 
coincidindo com a apresentada no livro, não elimina 
totalmente a ocorrência de erros de digitação, mas 
apenas a reduz. Deve-se também considerar que a soma 
que apresentamos foi obtida com um EXPERT 1.1 e há 
casos em que outros tipos de MSX produzem somas 
diferentes. 

Esperamos que este livro possa abrir novos 
horizontes aos programadores MSX; tanto aos iniciantes 
quanto aos que não têm tempo suficiente para descobrir 
sozinhos os incontáveis “macêtes” dessas máquinas 
maravilhosas. 


DICAS SOBRE 9) TECLADO 


As dicas deste capítulo abordam preponde- 
rantemente assuntos relativos a manipulação do teclado 
nos micros MSX. 

Uma vez que o principal meio de entrada de dados 
para a UCP do micro é o teclado, a utilidade destas 
dicas é evidente. 


1 - Carregando o Buffer do Teclado ....... 
2 - Limpando o Buffer do Teclado .. g 
3 - Programando as teclas de funções . 
4 - Restabelecendo as teclas de funções 
.5 - Checando as teclas especiais 
.6 - Travando a tecla CAPS LOCK . 
RE 
pe 
9 - 
Ro 
Bro 


Sun-svm 


Usando o click do teclado . 

Reprogramando todo o teclado 
Usando a barra de espaços . 
Usando as teclas de setas . . 
Uso da instrução ON KEY GOSUB ........ 


nu 
soou 


1.1 - CARREGANDO O BUFFER DO TECLADO 


O MSX reserva uma área (buffer) de 40 bytes na 
memória RAM para armazenar temporariamente os dados 
digitados através do teclado. Se esses dados forem 
comandos, serão executados na sequência em que 
estiverem no buffer. Pode-se carregar comandos no 
buffer do teclado através de programas em BASIC ou em 
ASSEMBLY a fim de gerar efeitos especiais. Por 
exemplo, para fazer com que um programa em BASIC seja 
carregado de fita cassete e seja automaticamente 
executado, basta usar o programa apresentado a seguir. 


100 SCREEN 1:X$=CHR$(34):Y$=CHR$(13) Exa 
110 AS="CLOAD"+X6+"CAS:“+X6+7:RUN“+Y6 Elsa 
120 EN=&HFBFO 

130 FOR F=1í TO LEN(AS) Ed 
140 CH=ASC(MIDS(AS,F,1)) Pas] 
150 POKE EN,CH Bag 
160 EN=EN+Í EsEia 
170 NEXT F Eai 
180 X=65536! +&HFBFO+LEN(AS) Ernie 
190 Y=X-256xXINT(X/256) Eri 
200 POKE &HF3F8B,Y Elite 
210 POKE &HF3F9, INT(X/256) BEI] 
220 POKE &HF3FA, &HFO Ens] 
230 POKE &HF3FB,&HFB Exaod 


Re 3d 

Os dados a serem inseridos no buffer estão na 
variável A$. A variável EN armazena o endereço do 
buffer a ser preenchido. A variável CH armazena O 
caractere de A$ a ser inserido no endereço EN do 
buffer. O endereço &HFBFO é o início do buffer do 
teclado (KEYBUFF). 

Os endereços &HF3FB e &HF3F9 armazenam o próximo 
endereço a ser preenchido no buffer do teclado 
(PUTPNT) e são preenchidos de modo a apontarem para o 
endereço subsequente ao do fim da mensagem inserida. 

Os endereços &HF3FA e &HF3FB armazenam o último 
endereço do buffer lido pelo micro (GETPNT) e são 
posicionados de modo a apontarem para o endereço do 
primeiro caractere inserido (&8HFBFQ). 


BIBLIOGRAFIA RECOMENDADA: 


Programação Avançada em MSX - pasihas 40, 491, 42 e 
43. 
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1.2 - LIMPANDO O BUFFER DO TECLADO 


Observe o programa a seguir: 


40 SCREEN O,,0:LOCATE,, 0:KEY OFF 

20 PRINT ” Entre uma escolha:“:PRINT 
30 PRINT” L 4 1 Opção 1 ....” 

40 PRINT” C2) Opção 2 ....” 

50 PRINT“ E 3 1 0pção 3 ....” rito] 
60 PRINT:PRINTE:PRINT 

70 BS=INKEY$G:IF LENCBS)<Íí THEN 70 
80 FOR F=í4 TO 500 : NEXT F : BEEP 
90 PRINT “OPÇÃO “;B$6;” ESCOLHIDA 1“ 
100 AB=INPUTSCÍ) 

110 PRINT AS 


EL 
[CBS] 
EESUA 
FACE 
Etica 
Lebos] 
ELA 
Era 
Elsa 
Erica 


Note que ao fazer a primeira opção, se a tecla da 
escolha for pressionada por muito tempo ou se mais de 
uma tecla for pressionada, a segunda opção também será 
feita. Isso ocorre porque o buffer do teclado fica 
carregado com os caracteres digitados até que eles 
sejam usados. 

No BIOS do MSX existe uma rotina que pode ser 
útil nessas situações: a KILLBUFF. Sempre que é 
executada. ela limpa o buffer do teclado. Para 
chamá-la, basta usar as instruções: 


DEFUSRO = &H0156 : POKE O, USROCO) 


Experimente inserir a linha a seguir no programa 
anterior e depois execute-o novamente. 


95 DEFUSRO = &H0156 : POKE O, USRO(O) 


Você notará que a segunda opção não mais será 
atrapalhada por digitações acidentais. 


BIBLIOGRAFIA RECOMENDADA: 


Coleção de Programas para MSX vol. 2 - página 110. 
Aprofundando-se no MSX - página 159. 


1.3 - PROGRAMANDO AS TECLAS DE FUNÇÕES 


As teclas de funções podem ser facilmente 
redefinidas para atender às necessidades específicas 
de um programa. 

A forma mais direta de reprogramá-las é usando a 
instrução KEY. Entretanto pode-se também redefinir as 
teclas de funções diretamente na memória RAM. 

Experimente executar o seguinte programa e depois 
pressione a tecla F1. 


10 FOR F=&HF87F TO &HF87F+38 io] 
20 POKE F,ASC(“A”) [ES] 
30 NEXT F 


Com isso a tecla Fi passou a ter uma sequência de 
39 caracteres “A”. Lembre-se que com a instrução KEY 
podemos inserir no máximo 15 caracteres em cada tecla 
de função. Com este recurso, podemos atribuir a uma 
única tecla até 39 caracteres, entretanto deve-se 
tomar alguns cuidados, pois o conteúdo das demais 
teclas podem ser alterados. Experimente digitar a 
tecla Fo após ter executado o programa acima. Você 
verá que seu conteúdo foi alterado pelo programa. 

O que acontece é que existem 160 bytes da RAM, 
reservados a partir do endereço &HFB7F (FNKSTR), para 
armazenar os textos das teclas de funções. Cada tecla 
tem seu texto começando sempre num mesmo endereço e O 
número máximo de caracteres atribuíveis a uma única 
tecla de função é 39. O 409 caractere da área de texto 
de uma tecla é sempre um 6. 

Você pode também atribuir às teclas de funções 
sequências de caracteres de controle. Por exemplo 
digite a instrução a seguir e depois pressione a tecla 
FM. 


KEY 4, CHR$(7)+CHR$(28) +CHR$(8)+CHR$(7)+C 
HR$(127)+CHRE(9)+CHRECLL) 


BIBLIOGRAFIA RECOMENDADA: 


Linguagem Basic MSX - página 81. 

Curso de Basic v.1 - páginas 21 e 22. 
Aprofundando-se no MSX - página 50. 
Programação Avançada em MSX - página 145 
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1.4 - RESTABELEGENDO AS TECLAS DE FUNÇÕES 


As teclas de funções podem ser facilmente 
programadas. Entretanto, após usar um programa que as 
redefina, pode ser necessário reinicializá-las com as 
funções originais. Para isso pode-se simplesmente 
programar tecla por tecla novamente ou chamar uma 
rotina do BIOS (INITFNK em &HO83E) que se encarrega de 
fazer isso automaticamente. Para executar essa rotina 
do BIOS basta digitar a seguinte instrução: 


DEFUSRO = &H3E : POKE O,USRO(O) 


Observe o programa exemplo a seguir. Ele redefine 
as teclas de funções e logo a seguir restabelece seus 
conteúdos originais. 


10 SCREEN O =: KEY ON 

20 FOR F=í TO 10 

30 KEY F,“NOVA 17 

40 NEXT F 

50 SCREEN O 

60 PRINT,,” TECLAS REDEFINIDAS !” 
70 PRINT,,” PRESSIONE RETURN !“ 
80 AB=INPUTS(L) 

90 DEFUSRO = &H3E : X = USRO(O) 
100 SCREEN O 

140 PRINT,,” TECLAS RESTABELECIDAS !” ELLE 


BIBLIOGRAFIA RECOMENDADA : 
Aprofundando-se no MSX - página 156. 


1.5 - CHECANDO AS TECLAS ESPECIAIS 


Nos micros MSX existem várias maneiras de 
verificarmos se alguma tecla especial está ou não 
pressionada. Uma delas é consultando as variáveis do 
sistema OLDKEY (&HFBDA) ou NEWKEY (&HFBES). O programa 
listado a seguir ilustra esse procedimento, checândo 
especificamente se a tecla LGRA (ou GRAPH) está 
pressionada. 

Ao ser executado o programa Iê o conteúdo da 
região da memória RAM que vai do endereço &HFBDA até o 
endereço 8HFBEF, mostrando na tela seus conteúdos em 
binário. Experimente pressionar algumas teclas (menos 
“STOPI). Você verá que a cada tecla pressionada 
corresponde um bit de algum dos bytes dessa região. 
Para checar qualquer tecla, portanto, basta verificar 
se o bit está ou não em “0”. Experimente pressionar a 
tecla LGRA (ou GRAPH). A configuração que corresponde 
à ela é o valor 251 (ou 11111811, em binário) no byte 
SHFBES. Observe como a linha 250 faz o teste para ver 
se ela está ou não pressionada e tente alterar Oo 
programa para que ele teste se a tecla RGRA (ou CODE) 
está pressionada. 


100 REM 

110 REM LE OLDKEY E NEWKEY 

120 REM 

130 SCREEN O 

140 LOCATE 9,5,0 

150 FOR F=&HFBDA TO &HFBE4 

160 PRINT “&H“;HEXS(F);/=) “5 

370 go RENT RIGHTS (“00000000 +BINS(PEEK (RAR 
3,8); 


190 PRINT RIGHTS(”00000000”+B INS (PÉEKC 
F+11)),8) 

200 NEXT F 

210 PRINT:PRINT:PRINT 

220 REM 

230 REM TESTA A TECLA LGRA 

240 REM 

250 IF PEEK(&HFBEO)=(PEEK (&HFBEO) AND254 ) BM: 
THEN PRINT “LGRA PRESSIONADA“ELSEPRINT” 


260 GOTO 140 

BIBLIOGRAFIA RECOMENDADA: 

Aprofundando-se no MSX - páginas B3 a 86. 
44 
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E RES 
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EESEEE 
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1.6 - TRAVANDO A TECLA GAPS LOCK 


Existe uma variável do sistema (CAPST, em &HFCAB) 
que indica o estado da tecla CAPS LOCK. Se CAPS LOCK 
está ativa, essa variável contém 255 ou algum outro 
valor maior que zero, e se inativa, contém O. Gada vez 
que a tecla CAPS LOCK é pressionada os bits da 
variável CAPST são complementados de modo que seu 
valor é sempre 8 ou 255. 

Para simular o pressionamento de CAPS LOCK basta 
"pokear” 255 ou O em CAPST. 

Para travar a CAPS LOCK, deixando-a ativa, basta 
pokear qualquer valor maior que O e menor que 255 em 
CAPST, pois assim, mesmo que CAPS LOCK seja 
pressionada, a complementação dos bits de  CAPST 
produzirá um valor também maior que O e menor que 255. 

Experimente digitar e usar o programa a seguir. 
Após executá-lo, digite algumas letras usando as 
teclas CAPS LOCK e SHIFT. Você notará que elas ficaram 
praticamente inoperantes para as letras. 


40 SCREEN O : WIDTH 38 

20 POKE &HFCAB, í 

30 PRINT,,” DIGITE ALGUMAS LETRAS” GEL 
(com ou sem SHIFT):” 

50 PRINT : ER 


INT 
60 AB=INPUTSCÍ) 
70 PRINT AS; 
Bo GOTO 40 


AT 


Para fazer com que a tecla CAPS LOCK volte a 
funcionar normalmente, comande: 


POKE &HFCAB,O 


BIBLIOGRAFIA RECOMENDADA: 
Aprofundando-se no MSX - página 58. 


Programação Avançada em MSX - página 146. 
Coleção de Programas para MSX vol 2 - BASUANE 51 e 
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1.7 - USANDO O CLICK DO TECLADO 


O click do teclado pode ser usado para muitas e 
grisrestos aplicações. deixando livre para outros usos 
o PSG. 

Para gerar o click do teclado por software, é 
necessário acessar o hardware da máquina com comandos 
OUT. Veja o programa a seguir. 


10 SCREEN 1 
20 KEY OFF 
30 COLOR 1,4 Es 
AO LOCATE 324RND(1),24 
50 PRINT “x” 
60 OUT &HAA, &HFF 
70 OUT &HAA, &H7F 
Bo GOTO 40 


Cada vez que as linhas 60 e 780 são executadas um 
“click” é gerado. Você pode usar isto para sonorizar 
seus programas mesmo sem usar o PSG. 


BIBLIOGRAFIA RECOMENDADA: 


Coleção de Programas para MSX vol 2 - página 15. 
Aprofundando-se no MSX - página 87. 
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1.8 - REPROGRAMANDO TODO O TECLADO 


Agora seu MSX também pode ter um “teclado 
inteligente” como nos velhos tempos do Apple e do 
Sinclair. O programa a seguir instala em seu teclado 
as principais palavras reservadas do Basic sem perder 
sua função original. 

A redefinição atinge as letras maiúsculas e 
minúsculas, totalizando 52 palavras reservadas. No que 
é possível, as teclas seguem o padrão Sinclair (A=NEW, 
K=LIST, etc). Palavras do Sinclair que não existem no 
nos (PAUSE, SCROLL, etc) são trocadas por outras do 

Itimo. 

Para usar o programa, digite-o e comande RUN. 
Após a execução deverão aparecer os códigos das teclas 
e as palavras correspondentes. Experimente então 
teclar SELECT e em seguida a tecla A. Você deverá 
obter “NEW”. Tecle agora SELECT+"a” para obter “FRE(”. 
Tente então outras combinações. O que acontece quando 
a tecla após o SELECT não é uma letra? 


1000 RE = 
1010 RE 
1020 REM 
1030 REM 
1040 REM 

1050 DATA 21,9B,Dí,CD,CE,Dí,21,16 
1040 DATA DO,22,A5,FD,3E,C3,32,A4 
14070 DATA FD,AF,32,D7,Dí,C9,4F,3A Foco 
1080 DATA D7,D1,A7,79,20,05,FE,18 
1090 DATA 28,49,C9,FE,41,38,3D,FE 
1100 DATA 5B,30,08,D6,40,47,21,72 
1110 DATA DQO,18,0E,FE,61,38,2D,FE 
1120 DATA 7B,30,29,D6,60,47,21,08 ELIAS 
1130 DATA Dí,7E,A7,23,20,FB,10,F9 
1140 DATA 3E,C9,32,A4,FD,7E,A7,28 
1150 DATA 06,CD,A2,00,23,18,F6,3E 
1160 DATA C3,32,A4,FD,AF,32,D7,Dí 
1170 DATA Cí,C3,DA,08,4F,AF,32,D7 
1180 DATA D1,79,C9,3E,FF,32,D7,Dáí 
1190 DATA AF,C9,00,4E,45,57,00,42 
1200 DATA 45,45,50,00,43,4F,4E,54 


R re 


T 


Er 


1210 DATA 00,44,49,4D,20,00,52,45 
1220 DATA 4D,20,00,46,4F,52,20,00 Etnia 
1230 DATA 47,4F,54,4F,20,00,47,4F 
1240 DATA 53,55,42,20,00,49,4E,50 
1250 DATA 55,54,20,00,4C,4F,41,44 
1260 DATA 20,00,4C,49,53,54,20,00 Era 


q 


1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1440 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 


R$(1);” = “sCHR$(24);CHR$CI)IFOR T=0 TO 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4€,4C,49,53,54,20,00,4D 
4F,54,4F,52,20,00,4E,45 
58,54,20,00,50,4F,4B,45 
20,00,50,52,49,4E,54,00 
50,53,45,54,20,28,00,52 
55,4E,00,53,41,56,45,20 
00,54,52,4F,4E,00,49,46 
20,00,43,4C,53,00,50,52 
45,53,45,54,20,28,00,43 
4C,45,41,52,00,52,45,54 
55,52,4E,00,45,4E,44,00 
00,46,52,45,28,00,49,4E 
4B,45,59,24,00,44,53,4B 
46,28,00,41,54,4E,28,00 
54,41,4E,28,00,53,47,4E 
28,00,41,42,53,28,00,53 
91,52,28,00,41,53,43,28 
00,56,41,4C,28,00,4C,45 
4E,28,00,55,53,52,00,33 
2E,31,34,31,35,39,32,37 
21,00,4E,4F,54,00,50,45 
45,48,28,00,54,41,42,28 
00,53,49,4E,28,00,49,4E 
94,28,00,53,54,52,49,4E 
47,24,28,00,52,4E,44,28 
00,43,48,52,24,28,00,56 
41,52,50,54,52,28,00,43 
4F,53,28,00,45,58,50,28 
00,53,54,52,24,28,00,4C 
4E,28,00,0C,50,72,6F,67 
72,61,6D,61,20,65,73,63 
72,69,74,6F,20,70,6F,72 
3A,0D,0A,54,48,45,20,50 
49,40,4F,54,20,65,6D,20 
4A,61,6E,65,69,72,6F,2F 
31,39,38,38,2E,00,7E,A7 
C8,CD,A2,00,23,18,F7,00 
FIM 


CLSzPRINT “CARREGANDO TOKEN” 
FOR I=&HD000 TO &HDiDS:READ AS:POKERMO 
I,VALCC&HV+AG) 2NEXT I 
1670 DEFUSR=&HDO00:A=USR(0)zPRINT:PRINT iktil 
1680 FOR I=65 TO 90zPRINT “<SELECT)>+“CHREELT 
$G(1):” = “;CHR$(24);CHR$(I):FOR T=0 TO é 
OOZNEXT TZNEXT I 
1690 FOR 1=97 TO 122:PRINT “<SELECT)+“CHEEDI 


100:NEXT T:NEXT I 


1700 
16 


END 


EE! 


ET 


EEDE! 


Tal 


I EEE E dr R 
- 14-17 pa RS E 

Fe E EE Pe 
x jr 2 Sb 


ES: 


HAHAH 


É recomendável salvar o código binário para 
facilitar o uso do programa. Para isto digite: 


BSAVE “TOKEN.BIN”, &HD000, &HDÍDB 
ou 
BSAVE “CAS: TOKEN”, &HD000, &HDÍDB 
Para executar o programa, use o comando: 
BLOAD “TOKEN.BIN”,R 
ou 
BLOAD “CAS:”,R 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX - páginas 66 a 71 e capítulo 3. 
Programação Avançado em MSX - capítulo 1 e apêndice 3. 
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1.9 - USANDO A BARRA DE ESPAÇOS 


A barra de espaços no MSX pode ser usada de 
muitas e diferentes maneiras. No programa i 
apresentamos um exemplo em que a barra é usada 
POR Ato! ah o fluxo do processamento usando a 
STRIG. 


10 SCREEN O :z PRINT : PRINT SPC(6); 
20 PRI 
30 BEEP 


40 IF NOT STRIG(O) THEN 30 


abaixo 
para 
função 
Elia 
NT “DIGITE A BARRA DE ESPAÇO |” [5 
[FAB | 
ELSA 
50 PLAY “ABCDEFG” ERREI 


processamento é através das interrupções. Essa maneira 
é ilustrada pelo programa a seguir. 
10 SCREEN O : PRINT : PRINT SPC(6); 


20 PRINT “DIGITE A BARRA DE ESPAÇO 1“ 
30 STRIG(O) ON : ON STRIG GOSUB 60 
40 PLAY“VISABCDEFGO7L32” 

30 GOTO 50 

60 PLAY“CH” : RETURN 


Uma outra forma de se controlar o fluxo do 


Observe que os dois programas apresentados são 
fundamentalmente diferentes. O primeiro apenas 
interrompe o processamento normal do programa até que 
a barra de espaços seja pressionada, enquanto O 
segundo desvia o processamento para uma sub-rotina, 
esteja ele em que linha estiver, sempre que a barra de 
espaços for pressionada. 


BIBLIOGRAFIA RECOMENDADA : 

Linguagem Basic MSX - páginas 112, 159, 168, 178 e 
178. 

Coleção de Programas para MSX v.2 - páginas 75 a 82. 
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1.A - USANDO AS TECLAS DE SETAS 


As teclas de setas podem ser testadas através de 
uma função do BASIC MSX. O programa apresentado a 
seguir ilustra um uso típico dessa função, associada 
ao controle de um ponto plotante na SCREEN 2. 

Note que usamos “parênteses lógicos” para tornar 
a tela ilimitada. Se o ponto tentar sair da tela por 
qualquer um de seus 4 lados, automaticamente será 
transportado para a primeira posição do lado oposto. 


oo SCREEN 2,,0 : DEFINT A-Z Em 
í Ya 
120 Y Eram 
130 2) A=0 THEN 130 Erica 
140 [o] )-(A)3 AND A<7) 
150 Ai E)+(A)5) 
160 ( -— XXCXO-1) 
170 Ema 
180 — YX(YC-1) ITS] 
190 ES 
200 Elia 
DIV AL aa scE] 


Para entender o programa, lembre-se que quando o 
conteúdo dentro dos parênteses for verdadeiro, ele 
pode ser substituído pelo valor numérico “-1", e 
quando for falso, pelo valor “0”. 
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1.8 - USO DA INSTRUÇÃO ON KEY GOSUB 


As teclas de funções podem ser usadas para chamar 
sub-rotinas automaticamente durante as interrupções. 
Observe o programa a seguir. Digite-o e rode-o. 


10 SCREEN 0,,0 : PLAY “L64” 
-20 FOR F=14 TO 40 : KEY(CF) ON : NEXT F EST] 
30 ON KEY GOSUB 100,200,300,400,500, 400, ELI 


700,800,900,1000 
40 GOTO 40 Elias 
100 PRINT ” Fi PRESSIONADA !!! “ 
110 PLAY “Cc” tia 


120 RETURN 

200 PRINT ” F2 PRESSIONADA !!1 “ 
210 PLAY “cm” 

220 RETURN 

300 PRINT ” F3 PRESSIONADA !!! “ 
310 PLAY “D” 

320 RETURN 

400 PRINT ” F4 PRESSIONADA 1!!! “ 
410 PLAY “DH” 

420 RETURN 

500 PRINT “” F5 PRESSIONADA 111 “ 
510 PLAY “E” 

20 RETURN 

400 PRINT ” Fé PRESSIONADA t11 “ 
610 PLAY “FE” 

420 RETURN 

700 PRINT ” FZ PRESSIONADA 111 “ 
710 PLAY “EH” 

720 RETURN 

890 PRINT ” FB PRESSIONADA !!! “ 
810 PLAY “6” 

820 RETURN 


P00 PRINT ” F9 PRESSIONADA 111 “ 
910 PLAY “6H” 

920 RETURN 

1000 PRINT “Fio PRESSIONADA 111 “ 


1010 PLAY “A 
1020 RETURN 


OTA! = Tag 


Observe que, independentemente da linha do 
programa que estiver sendo executada, sempre que 
alguma tecla de função for pressionada uma sub-rotina 
será chamada. 
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DICAS PARA USAR O) Video) 


Este capítulo aborda os recursos do vídeo do 
MSX. Existe um circuito dedicado ao controle do vídeo 
(VDP) que tem à sua disposição 16 Kbytes de memória 
RAM (VRAM) para armazenar os dados da tela. O controle 
do vídeo pode ser feito através do BASIC. com os 
vários comandos dedicados a isso, ou diretamente em 
Linguagem de Máquina. 


2.1 - Cor de frente igual a cor de fundo .... 22 
2.2 - Pseudo-borda na SCREEN O é es 
Ev3 = Textos na SCREEN E ...... 24 
2.4 - Caracteres menores que 32 . E es 
2.5 - Caracteres de controle do vídeo .... 27 
2.6 - Usando o STEP em comandos gráficos . eg 
2.7 - Posicionando o cursor na SCREEN 2 ..... 31 
2.8 - Movimentos na tela ........... ses 
RES OGREEN 4 es mma na Ki 
2.A - Setores com o CIRCLE . 39 
2.B - Redefinindo caracteres ..... 48 
2.6 - SCROLL UP para SCREEN Q .... se 
2.D - SCROLL DOWN para SCREEN Q .. 5a 
2.E - SCROLL LEFT para SCREEN O .. 54 
e.F - SCROLL RIGHT para SCREEN O . 55 
2.6 - SCROLL UP para SCREEN 1 .... 56 
2.H - SCROLL DOWN para SCREEN 1 57 
2.I - SCROLL LEFT para SCREEN 1... 58 
2.J - SCROLL RIGHT para SCREEN 1 58 
2.K - Gentralizando caracteres sa 
2.L - Animação com SPRITES . 61 
2.M - Letras ampliadas .. 63 
2.N - Entendendo o DRAW . 66 
2.0 - "WARP B” na SCREEN 2 . ax 267: 
2.P - "SPRITEANDO” a tabela de caracteres . 68 
EQ — Ariequim bêbado ......2c.-cinapes css ssa 69 
2.R - Usando 48 ou 64 colunas na SCREEN 2... 7 
2.5 - Carimbador de SPRITES BxB na SCREEN 2 . 73 
2.T - Carimbador de SPRITES 16x16 na SCREEN 2 75 
2.U - Armazenando telas na RAM ... 76 
2.V - Usando a VRAM para dados O 
2.w - Pesquisador de desenhos . 79 
2.x - Imagens instantâneas 83 
2.y - Impressão em tamanho duplo na SCREEN 2 84 


2.1 - COR DE FRENTE IGUAL A COR DE FUNDO 


Muitos programas ao terminarem a execução ou 
serem interrompidos por CONTROL + STOP deixam a tela 
com a cor de frente igual a cor de fundo e a primeira 
impressão que se tem é que o micro quebrou. Digite e 
rode o programinha listado a seguir: 


10 SCREEN 2 Eq 
20 CIRCLE (128,86),50 Ei 
30 COLOR 4 Eid 
49 GOTO 40 Ed 


Após o desenho do círculo terminar, digite 
CONTROL + STOP. A tela deverá ficar totalmente escura 

Para verificar o que está acontecendo basta 
digitar: 


SHIFT + HOME/CLS e 
SHIFT + F1 


Com isso, a tela será limpa e as cores normais do 
vídeo serão restabelecidas, desde que as teclas de 
funções não tenham sido redefinidas pelo programa que 
foi interrompido. 

Se o procedimento descrito acima não funcionar, 
tente digitar o comando abaixo, mesmo sem vê-lo na 
tela: 


COLOR 15.1 : SCREEN 6 (e RETURN) 


ee 


2.2 - PSEUDO-BORDA NA SCREEN 6 


O comando COLOR. quando usado com a SCREEN QB, não 
permite a especificação da cor da borda. Com um 
pequeno programa em BASIC podemos resolver 
parcialmente o problema, gerando uma PSEUDO-BORDA para 
a SCREEN O. Digite e execute o programa a seguir e 
depois verifique as novas características da tela. 


140 COLOR 1,15 : SCREEN O BEm 
20 FOR F=2048 TO 4095 [154 1 
30 X = NOT(VPEEK(F)) AND 255 Des] 
42 VPOKE F, X Elia 
50 NEXT F ERC 
60 INPUT“Qual a cor da borda (0-15)“;B Elis 
70 IF B<O OR B>15 THEN 60 
80 COLOR ,B 

90 GOTO 40 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX - capítulo 4. 
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2.3 - TEXTOS NA SCREEN 2 


O MSX permite a impressão de letras e gráficos na 
SCREEN 2. Para isso é necessário abrir um arquivo na 
tela (GRP:) e usar a instrução PRINT 4. Observe o 
programa a seguir: 


10 SCREEN 2 Eroga 
20 OPEN “GRP:” AS Há o] 
30 CIRCLE (128,86),50 

40 PRESET (110,84) 

50 PRINT H4, “EDITORA ALEPH” 
60 GOTO 60 


TUTH = 


A linha 180 seleciona o uso da tela gráfica de 
alta resolução (GRP:) 

A linha 20 abre um arquivo nessa tela. Não é 
necessário especificar o tipo de arquivo ( ...FOR 
OUTPUT...). uma vez que ele só pode ser de saída! 

A linha 30 desenha um círculo de centro na 
posição (128.86) e raio de 50 pixels. 

A linha 40 “marca” um ponto na posição (118,84), 
a partir do qual a mensagem será impressa 

A linha 50 imprime a mensagem na tela a partir 
do ponto marcado pela linha 40. Cada caractere é 
definido dentro de uma matriz de 8x8 pontos. A posição 
marcada pela linha 48 posiciona o vértice superior 
esquerdo do primeiro caractere da mensagem. 

Observe que podemos “criar” novos tipos de letras 
na SCREEN 2, usando uma dupla impressão dos caracteres 
normais. Experimente inserir no programa anterior as 
seguinte linhas: 


35 PRESET (109,84) 
56 PRINT Hí, “EDITORA ALEPH” 


Isso deve ter produzido uma mensagem em ”bold”! 

Um outro recurso é o uso de espaçamento menor 
entre as letras a serem impressas. Experimente 
executar o programa a seguir. Ele imprime na SCREEN 2 
uma mensagem com espaçamento reduzido. 


10 SCREEN 2 
20 OPEN “GRP:” AS H1 
30 AS="EDITORA ALEPH” 


as 


EEE 


40 FOR F=í TO LEN(AS) 

50 PRESET (110+(F-1)x6,84) 
60 PRINT Hí,MIDSCAS,F,1i) 
70 NEXT F 

Bo GOTO 80 


Para entender melhor o  funcionameneto do 
programa, experimente substituir a linha 50 por: 


50 PRESET (110+(F-1)x12,84) 


BIBLIOGRAFIA RECOMENDADA: 


Curso de BASIC v.1 - páginas 65 e 66. 
Coleção de Programas para MSX - páginas 32, 33, 59 e 
6e. 
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2.4 - CARACTERES MENORES QUE 32 


Os micros MSX dispõem de 256 caracteres, todos 
apresentáveis no vídeo. Entretanto, os primeiros 32 
caracteres correspondem a códigos de controle de 
periféricos (0 a 31) e para serem apresentados através 
de seus códigos necessitam de uma sintaxe peculiar da 
instrução PRINT CHR$. O programa a seguir apresenta os 
32 caracteres de controle através de seus códigos. 


10 SCREEN í ELI 
20 WIDTH 16 [<15] 
30 FOR F=0 TO 31 Ea 
40 PRINT CHR$(1)+CHRE(G4+F)s DIC] 
30 NEXT F 
IG = 20] 

Note que a apresentação é feita pela linha 40. 


Para se mostrar um caractere de controle através de 
seu código é necessário usar a sintaxe: 


PRINT CHR$(1)+CHRE(64+ no » 


Onde “no” é o código (de O a 31) do caractere a 
ser apresentado. 


BIBLIOGRAFIA RECOMENDADA : 
Coleção de Programas para MSX v.1 - páginas 26 e 27. 
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2.5 - CARACTERES DE CONTROLE DE VÍDEO 


O padrão de vídeo dos MSX é um dos mais 
utilizados em microcomputadores. Alguns caracteres 
podem ser usados para controlar o vídeo em funções 
como o posicionamento do cursor, limpeza da tela, 
formato do cursor, etc. 

A seguir relacionamos os caracteres de controle 
do vídeo do MSX. Eles devem ser usados com o comando 
PRINT. Por exempo, para deixar o cursor posicionado na 
linha 180 e coluna 20 basta comandar: 


PRINT CHR$(27)CHR$CI2+L0)CHRECI2+20) ; 


Apaga a tela 
CHR$E(27)04” ou 
CHR$(27)7E” 


Apaga do cursor ao fim da linha 
CHR$(27)K” 


Apaga do cursor ao fim da tela 
CHR$(27)7 9” 


Apaga a linha inteira 
CHR$(27)717 


Insere uma linha em branco 
CHR$(27)717 


Elimina uma linha 
CHR$(27)“M” 


Posiciona cursor 
CHR$(27)"Y”s 
CHR$(32+n2 da linha); 
CHR$(32+nNO da coluna) 


Cursor linha acima 
CHR$(27)7A7 


Cursor linha abaixo 
CHR$(27)7B” 


Cursor coluna a direita 
CHR$(27)707 


Cursor coluna a esquerda 
CHR$5(27)“D” 


27 


Cursor em HOME 
CHR$(27)“H7 


Cursor inteiro 
CHR$(27)x47 


Cursor pela metade 
CHR$(27)794” 


Cursor apagado 
CHR$(27)"x5” 


Cursor aceso 
CHR$(27)"“y5” 


O programa a seguir ilustra o uso de alguns dos 
recursos descritos acima. Digite-o, rode-o e estude-o. 


10 SCREEN O : WIDTH 38 : KEY OFF sam 
1í PRINT “Digite qualquer coisa “; > | 
12 PRINT “e use as teclas de setas”; det 
13 PRINT “ e as teclas HOME e CLS 1“ inata 
44 PRINT =: PRINT : PRINT sam 
20 AS=INKEYS : IF AS="” THEN 20 Ebih 
30 IF AG<)CHR$(12) THEN 50 
40 PRINT CHR$(27)"5” Emos 
50 IF ASC)CHR$E(11) THEN 70 Ec u] 
60 PRINT CHR$(27)7K” 
70 PRINT AS; 
90 GOTO 20 Ego] 

Roc E 


BIBLIOGRAFIA RECOMENDADA, 
Sistema de Disco para MSX - página 186. 
es 


2.6 - USANDO O STEP EM COMANDOS GRÁFICOS 


A instrução auxiliar STEP pode ser muito áúti 
quando usada com comandos gráficos. 
Veja o programa a seguir: 


40 SCREEN 2 Eq 
20 PSET (20,20) Eq 
30 PSET STEP (20,20) Bog 
ao GOTO 40 [TS] 


TUTA = 


Ao ser executado ele irá plotar dois pontos na 
diagonal que sai do canto superior esquerdo da tela. 

Isso acontece porque a instrução STEP permite a 
definição de um novo sistema de coordenadas na tela. 

O sistema de coordenadas normal é um sistema 
ABSOLUTO, isto é, suas coordenadas são sempre 
correspondentes a uma mesma orígem, fixa no canto 
superior esquerdo da tela. 

O sistema usado pelo STEP é um sistema MÓVEL, em 
que as coordenadas correspondem a uma orígem móvel, 
definida pelo último ponto “marcado” na tela. Note que 
PONTO “MARCADO” não é necessariamente PONTO “PLOTADO”. 
Por exemplo, ao se usar um comando CIRCLE o ponto 
“marcado” é o seu centro, enquanto que os pontos 
plotados são os do círculo. 

Vamos tentar entender isso melhor. 

Observe novamente o programa anterior. 

A linha 10 apenas seleciona a SCREEN 2 do micro. 
Essa tela tem uma resolução de 256 colunas x 192 
linhas, num total de 49152 pontos. 

A linha 28 marca o ponto de coordenadas x=20 e 
y=20 na tela. Note que essas coordenadas são 
referentes ao sistema ABSOLUTO, pois NÃO existe a 
instrução STEP precedendo as coordenadas. 

A linha 38 também marca um ponto na tela (o de 
coordenadas x'=20 e y'=20), porém as coordenadas desse 
ponto são precedidas pela instrução STEP e. portanto, 
referem-se ao sistema de coordenadas MóVEL. Como o 
último ponto marcado na tela foi o de coordenadas 
ABSOLUTAS x=20 e y=20, esse ponto foi tomado como 
ORÍGEM do sistema MóVEL. Portanto, as coordenadas 
x'=20 e y'=20 do sistema MóVEL correspondem às 
coordenadas x=40 e y=480 do sistema ABSOLUTO. 

Agora, esquente um pouco a cabeça tentando 
entender o funcionamento dos três programinhas 
listados na próxima página. 


es 


PROGRAMA 1 


10 SCREEN 2 

20 PSET (0,0) 

30 CIRCLE STEP(6,6),4 
40 GOTO 30 


PROGRAMA 2 


10 SCREEN 2 

20 PSET (0,0) 

30 LINE STEP(3,3)-STEP(3,3) 
40 GOTO 30 


PROGRAMA 3 


10 SCREEN 2 

20 FOR F=0 TO 6.28 STEP .2 

30 X=80xSIN(F) : Y=B0xCOS(F) 
40 LINE STEP(X,Y)-(128,86) 
30 NEXT F 

60 GOTO 40 
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2.7 - POSIGIONANDO O CURSOR NA SCREEN 2 


A forma mais genérica de se posicionar o cursor 
na SCREEN 2 é usando o seguinte comando: 


PSET (coluna, linha), POINT (coluna, linha) 


Por exemplo. para posicionar o cursor na coluna 
B9 e linha 190 devemos fazer: 


PSET (89,190) POINT (89,190) 


Se quisermos posicionar o cursor para impressão 
de textos na SCREEN 2 podemos considerá-la dividida em 
32 colunas e 24 linhas, como a SCREEN 1. Desse modo, o 
comando PSET acima pode ser substituido por: 


PSET (8xcol,8xlin),POINT (8xcol,8xlin) 


Para imprimir na coluna 18 e linha 5 devemos usar 
então: 


PSET (8x10,8%5),POINT (8%10,8x5) 
Agora, digite e rode o programa a seguir: 


10 SCREEN 2 EL 
ao OPEN “GRP:” AS H1 ERER 
30 C= 10: L = 10 Ex 
40 PSET(8*C,6xL),POINT(B*HC,B*L) EEI 
50 PRINT Hí, “ALEPH” EREIS 
60 GOTO 50 


Na linha 30 define-se a coluna (de Ba 31) e a 
linha (de Q a 23) onde desejamos imprimir. A linha 40 
posiciona o cursor e a linha 50 imprime na tela. 

Veja a dica 2.3 para entender melhor o programa. 
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2.8 - MOVIMENTOS NA TELA 


Muitas vezes pode-se desejar que a tela do MSX 
apresente algum movimento global. A seguir, 
apresentamos seis programas que produzem movimentos 
globais na SCREEN 1. 


PROGRAMA 1 


10 * TESTE DE MOVIMENTO Em 
O SCREEN 1 z WIDTH 32 : COLOR 4,7,4 
30 FOR F=0 TO 22 
40 PRINT STRING$(32,/0"); : NEXT F 
50 FOR F=8xASC(”0”) TO BXASC(”0)+7 
THEN VPOKE F,VPEEK(F)/8 

B=1 THEN UPOKE F,BxVPEEK(F) 

80 NEXT F : B=(B+í) MOD 2 : GOTO 50 


PROGRAMA 2 


100 ” TESTE DE MOVIMENTO 2 Era 
110 SCREEN 1 z WIDTH 32 : COLOR 4,7,4 EN 
120 FOR F=0 TO 22 
130 PRINT STRING$(32,7.); = NEXT F EELE 
140 A=VPEEK (BxASC(”.”)) Estia 
150 FOR F=8xASC(”.”) TO BxASC(”.'D)+á Elza 
Eita 
[SDER] 
Exa 


160 VPOKE(F), VPEEK(F+1) 
170 NEXT F 

180 VPOKE F,A 

190 GOTO 140 


ÚTHI = [90 
PROGRAMA 3 


200 SCREENÍ : WIDTH 32 

210 FOR F=48 TO 69 

220 AG=AS+CHRE(F) 

230 NEXT F 

240 FOR F=1 TO 31 

250 A=INT(CL+RND(1)*21) 

260 AG=RIGHTSE(CAS, A)J+LEFTE(AS,21-A) 
270 FOR G=1 TO 21:LOCATE F,G 
280 PRINT MIDS(AS,G,í)z:NEXT G 
290 NEXT F 

300 FOR F=48x8 TO 69x8+7 

310 A=INT(BXRND(1)) 


320 


IF RND(1)).01 THEN VPOKE F,O ELSE UP 


OKE F,2ºA 


330 
340 
350 
360 
370 
380 
390 


NEXT F 

AX=VPEEK (69x8+7) 

FOR FX=69x8+6 TO 48%8 STEP-í 
VPOKE FZ+1,VPEEK(FZ) 

NEXT FX 

VPOKE FX+1í,AX 

GOTO 340 


OTA a 


PROGRAMA 4 


SCREENÍ : WIDTH 32 

FOR F=48 TO 69 

AB=AB+CHRSCF) 

NEXT F 

FOR F=i TO 31 
A=INT(L+RNDC(1)*21) 
AGB=RIGHTSE(AS,A)+LEFTS(AS,21-A) 
FOR 6=1 TO 21 =LOCATE F,6G 

PRINT MIDS(AS,G,1):NEXT G 

NEXT F 

FOR F=48x8 TO 69x8+7 
A=INT(BXRND(1)) 

IF RND(1)).01 THEN VPOKE F,O ELSE vp E 


NEXT F 

AX=VPEEK (48x8) 

FOR FX=48x8 TO 69x8+6 
VPOKE FX,VPEEK(FZ+1) 
NEXT FX 

VPOKE FX, AX 

GOTO 540 
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PROGRAMA 5 | 


600 
410 
620 
630 
640 
630 
660 


* PSEUDO-SCROLL A ESQUERDA 
SCREEN í : WIDTH 32 : COLOR 4,7,4 BEEN 
X=BxASC(” “) Eriad 
B=0 : VPOKE X,&B00000004 ELI 
VPOKE X, VPEEK (X)x2 
B=B+í : IF B=7 THEN 630 
GOTO 440 


PROGRAMA 6 


470 
480 
490 
700 
710 
720 
730 


” PSEUDO-SCROLL A DIREITA 

SCREEN 1 : WIDTH 32 : COLOR 4,7,4 
X=BxASC(” “) 

B=0 : VPOKE X,8&B10000000 

VPOKE X,VPEEK(X)/2 

B=B+í : IF B=7 THEN 700 

GoTo 710 


BIBLIOGRAFIA RECOMENDADA: 
Aprofundando-se no MSX - capítulo 4. 
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2.9 - SCREEN 4 


Quando comandamos SCREEN 1 ou SCREEN 2, o 
interpretador BASIC prepara a VRAM com as tabela 
próprias para a tela selecionada e o VDP para agir 
sobre essas tabelas. 

Analisando os procedimentos executados pelo micro 
quando usamos um comando SCREEN podemos idealizar uma 
forma de fazer a VRAM ser preparada com as tabelas da 
SCREEN 2 e as variáveis do sistema serem preparadas 
para operar sobre a SCREEN 1! Desse modo, poderemos 
conciliar a rapidez de operação da SCREEN 1 com todos 
os recursos de cores e formas da SCREEN 2. 

A idéia é “enganar” o interpretador, fazendo-o 
pensar que está operando sobre a SCREEN 1, enquanto a 
VRAM e o VDP estarão preparados para a SCREEN 2. Note 
que as variáveis do sistema, preparadas pelo 
interpretador para uma dada SCREEN, funcionam como um 
"mecanismo inibltório” para o VDP, fazendo-o 
comportar-se sob rígido controle. Se usarmos 
diretamente as rotinas do BIOS. sem que 
interpretador “saiba”, poderemos evitar os “mecanismos 
Inlbitórios” e gerar algo parecido com uma 
"ESQUIZOFRENIA INDUZIDA” no micro. 

Observe atentamente o programa a seguir. Digite-o 
e, antes de executá-lo, leia os comentários que 
seguem. 


PROGRAMA SCREEN 4 


100 COLOR 45,4,15 Eri 
140 SCREEN 2 [E | 
420 DEFINT A-Z 
130 SCREEN 41 
140 DEFUSR = &H7E Rasca 
150 X = USR(0) [Fes] 

[E] 

Fogo 


160 FOR F = O TO 2047 
170 X = PEEK (&HíBBF 
180 VPOKE « F 
190 VPOKE (<&aHB00 + F 
200 VPOKE (&H1000 + F 


240 NEXT F 
220 FOR F=0 TO 7 Elasa 
230 VPOKE 2048+255x8+F,255 Essa 
240 VPOKE 4096+255xB+F,255 ESEIA 
250 NEXT F Expira 

DIAL = SS 


w 
q 


Antes de mais nada, lembre-se de como a VRAM fica 
dividida quando se usa a SCREEN 1 ou a SCREEN E. 

Uma vez estudada a estrutura da VRAM quando no 
modo SCREEN 1 ou SCREEN 2, podemos analisar q 
programa. 

A linha 180 serve apenas para que a cor da borda 
da tela seja selecionada quando o comando SCREEN na 
linha 118 for executado. 

A linha 118 seleciona a SCREEN 2 para que as 
tabelas da VRAM sejam preparadas para ela. 

A linha 128 serve apenas para aumentar um pouco à 
velocidade de execução do programa, afinal ele 
necessita apenas de valores inteiros. Este recurso dos 
micros MSX é extremamente útil para esta finalidade. 

A linha 138 seleciona a SCREEN 1 para que as 
variáveis do sistema indiquem ao interpretador o modo 
SCREEN 1. Note que até aqui não houve nenhum “truque” 
de programação digno de maiores explicações. O 
interpretador ainda não foi “enganado”! Isso só 
ocorrerá após a execução das próximas linhas. 

As linhas 148 e 150 executam a rotina do BIOS 
SETGRP (em 8H007E). Ela prepara o VDP para acessar as 
tabelas da SCREEN 2. Note que. com isso, já temos a 
VRAM preparada como SCREEN 1 (e residualmente como 
SCREEN 2) e o VDP preparado para acessar a SCREEN 2. 

As linhas de 160 a 210 carregam as tabelas de 
caracteres da VRAM com os caracteres da ROM (de 8 a 
255). Os desenhos dos 255 caracteres são definidos 
três vezes, uma para cada terço da tela. A tabela 
correspondente às linhas de 8 a 7 da tela ocupa os 
primeiros 2 Kbytes da VRAM. De 2a 4 kKbytes está a 
tabela correspondente às linhas de 8 a 15. As linhas 
de 16 a 23 usam a tabela de caracteres entre 4 e 6 
Kbytes. 

As linhas de 220 a 250 apenas redefinem os 
desenhos do caractere 255 (cursor) para serem usados 
no segundo e terceiro terço da tela. 

Note que a linha 180 poderia ter sido omitida sem 
nenhum problema, pois o comando SCREEN 1 da linha 130 
já havia carregado os desenhos dos 255 caracteres no 
primeiro terço da tela. 


ALTERANDO AS CORES DOS CARACTERES 


Na SCREEN 1 podemos alterar a cor de grupos de 8 
caracteres. Por exemplo. se alterarmos a cor do 
caractere 3, as cores dos caracteres de 8 a 7 serão 
simultaneamente alteradas. Na SCREEN 2, podemos 
alterar a cor de cada um dos caracteres 
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individualmente. Podemos ainda ir mais além e definir, 
para cada caractere, 16 diferentes cores! Isso mesmo, 
16 cores em cada caractere! 

Acrescente ao programa anterior as linhas 
mostradas a segulr e rode-o novamente. Com Isso, os 
caracteres dos números e dos parênteses terão suas 
cores redefinidas no 19 terço da tela! 


260 X=B192+8xASC(”C) 
270 FOR F=X TO X+7 

280 VPOKE F,8&B1000001 
290 NEXT F 

300 X=8192+8%ASC('D) 
310 FOR F=X TO X+7 

320 VPOKE F,8&B1000001 
330 NEXT F 

340 X=8192+8%ASC(“ 0”) 
350 Y=8192+8%A5C(“9)+7 
360 FOR F=X TO Y 

370 VPOKE F,&B11010001 
380 NEXT F 


Agora vamos fazer com que o cursor seja 
redefinido com as 16 cores. Acrescente também ao 
programa as linhas mostradas a seguir. Depois, 
execute-o. 


390 F=8192+8x255 

400 VPOKE F+O,8B00001000 
410 VPOKE F+í,8B00011001 
420 VPOKE F+2,8B00101010 
430 VPOKE F+3,8B00111011 
440 VPOKE F+4,8B01001100 
450 VPOKE F+5,8B01011101 
460 VPOKE F+óá,8B01101110 
470 VPOKE F+7,8&B011111141 
480 F=10240+8%255 A 
490 VPOKE F+O,&B00001000 
500 VPOKE F+í,&B00011001 
510 VPOKE F+2,8B00101010 
520 VPOKE F+3,8B0011iQií 
530 VPOKE F+4,8B01001100 
540 VPOKE F+5,8B01011101 
550 VPOKE F+6,8B01101110 
560 VPOKE F+7,&B0iiiítiii 
570 F=12288+8x255 

580 VPOKE F+0,8B00001000 


a Es PE bc ES 
:R [x 
T4T]-1 
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590 UPOKE F+í,&B00011001 Enia 
600 UPOKE F+2,8800101040 ET] 
610 VPOKE F+3,8B001110411 
620 VPOKE F+4,8B01001100 Eng 
630 VPOKE F+5,8B01011101 Ea 
640 VPOKE F+6,8B01101110 Elite 
650 VPOKE F+7,8B041441141 [ETE] 


Agora, o cursor está colorido! 

Os exemplos apresentados são bem simples para 
facilitar a compreensão. Os recursos oferecidos pela 
SCREEN híbrida que apresentamos são, entretanto, muito 
mais vastos. 

Você deve ter percebido que o programa demora 
vários segundos para ser executado. Isso é aceitáve 
quando levamos em conta que o BASIC tem que acessar 
quase 16 Kbytes, entretanto para os programadores mais 
exigentes a demora pode ser um fator muito negativo. 

Podemos pensar. então, em transformar o programa 
numa rotina em Linguagem de Máquina. Indo além, 
podemos pensar numa rotina que permita a implementação 
do comando SCREEN 4 no BASIC, de modo que ao ser 
executado ele gere a tela híbrida com a - mesma 
velocidade que as outras SCREEN's. Para facilitar a 
alteração das cores dos caracteres podemos imaginar um 
novo comando do BASIC ou ainda o aproveitamento de 
comandos não implementados como o IPL ou o CMD. Isto, 
entretando, já é assunto para um texto mais extenso. 

Se você não quiser esperar, poderá encontrar 
estas e muitas outras idéias já executadas 
analisadas no livro PROGRAMAÇÃO AVANÇADA EM MSX. Para 
estudar mais detalhadamente a estrutura da VRAM nas 
várias SCREEN's, as rotinas do BIOS e as Variáveis do 
Sistema. sugerimos a leitura atenta do livro 
APROFUNDANDO-SE NO MSX. Nesses dois livros os assuntos 
são tratados de forma bastante completa. 

Exemplos e aplicações práticas comentadas passo a 
passo podem ser encontradas nos livros COLEÇÃO DE 
PROGRAMAS PARA MSX, volumes 1 e 2. 

Para completar seu conhecimento sobre a SCREEN 1, 
veja a dica 2.0 (Arlequim Bêbado). 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX - capítulo 4. 
Programação Avançada em MSX - capítulo 2. 
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2.4 - SETORES GOM GIRCLE 


O comando CIRCLE do BASIC permite o traçado de 
arcos de circunferências e de perímetros de setores 
circulares. 

Para traçar setores, basta usar valores negativos 
para os ângulos Inicial é final. Veja o programa a 
seguirs 


40 SCREEN 2 

20 PI = 4MATNCL) 

30 CIRCLE (70,80) ,60,45.PI/3,PI/2,1 
AQ CIRCLE (130,80),60,15,-PI/3,-PI/2,1 
50 GOTO 50 


A Vinha 28 define a variável PI. atribuindo-lhe o 
valor da constante matemática %. 

A linha 30 traça um arco de circunferência 
normal. 

A linha 40 traça o perímetro de um setor. pois os 
ângulos são negativos. 


ag 


2.8 - REDEFININDO CARACTERES 


Uma maneira rápida de redefinir caracteres é 


acessar a de definição diretamente na VRAM 
Essa posições diferentes em cada tipo 

tela (SCREEN'S 8. 1, 2 ou 3). À seguir apresentamos 3 
programas bem curtos que redefinem, apenas com 


exemplo. o formato do caractere di 
81). orisinaimente à letra TA” nas SOREEN'S 0, 


100 
110 
120 
130 
149 
159 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


código 65 (ou 


PARA A SCREEN O 


SCREEN O 
E=2048+8x65 
FOR F=E TO E+7 
READ AS 
VPOKE F,VALC“&B”+AS) 
NEXT F 
PRINT : PRINT “CHRSC65)=";CHR$(65) 
PRINT : LIST 
DATA 00111100 
DATA 01000010 
DATA 10011001 
DATA 10111104 
DATA 10111101 
DATA 10011001 
DATA 01000010 
DATA 00111100 


PARA A SCREEN 1 


Apenas substitua as linhas 180 e 118 do programa 


anterior por: 


100 
110 


100 
110 
120 
130 
140 


ao 


SCREEN 4 Erem 
EsBx65 


PARA A SCREEN 2 


SCREEN 2 

FOR F=6144 TO 6144+24432-4 
VPOKE F,65 

NEXT F 

FOR F=0 TO 4096 STEP 2048 


150 FOR G=F+8%X65 TO F+Bx65+7] 
160 READ AS : UPOKE G,VALC“&B“+AS) 
170 VPOKE 6+8192, 8800011111 
480 NEXT 6 

490 | RESTORE 

200 NEXT F 

210 GOTO 210 

220 DATA 00i11igo 

230 DATA 01VOdOiO 

240 DATA 10011001 

250 DATA 10111101 

260 DATA fOtíiioi 

270 DATA 10011001 

280 DATA 01000010 

290 DATA 00111100 


EERRRESBAREREEE 


| 


adas. Para entender melhor esse problema, rode 
nte o programa feito para a SCREEN O e depois 
comande SCREEN 8. Você verá que o caractere de código 
85 voltou a ser a letra “A”. A redetinição feita na 
VRAM foi destruída pelo comando SCREEN. 

Para contornar esse problema podemos redefinir 
toda à tabela de caracteres na própria RAM e fazer com 
que o comando SCREEN carregue essa nova tabela para a 
VRAM, ao Invés de usar a tabela da ROM. O programa 
apresentado a seguir se presta a facilitar a 
redefinição dos caracteres de forma mais permanente. 
Digite e grave o programa. Depois veremos como usá-lo 


4000 KEYOFF 1 SCREEN O : WIDTH 40 
FOR E=8HB000 TO &HBAEF 

READ CS E POKE E, VAL(“&HV+05) 
NEXT E 
DEFUSR=8HB000 : X=USR(O) 
DATA 3E,01,21,AB,FC,77.CD,1E 
DATA Bí,CD,E5,BO,CD,26,B2,21 
DATA 08,00,22,87.FC,21,B8,00 
DATA 22,89,FC,21,CB,BA,7E,2F 
DATA FE, 00,28,06,CD,BD,00,23 
DATA 18,F4,16,08,CD,57,B2,FE 
DATA 53,20,06,AF +21, AB, FC,77 
DATA C9,21,09,B0,ES,FE,43,CA 
DATA 96,B2,FE,0D,28,1F,0E,01 Era 


Eá 


> 


FE,1C,28,11,0E,FF,FE,1D 
28,0B,0E,FO,FE,1E,28,05 
0E.10,FE,1F,C0,38,C9,82 
81,32,C9,82,C9,CD,0E,B2 
16,02,CD,57,82,FE,0D.CO 
21,65,80,E5,01,00,FE,FE 
20,28,24,0C,FE,4D,28,1F 
FE,1C,28,11,0E,FF,FE,4D 
28,0B,0E,FB,FE,1E,28,05 
0E,08,FE,íF,CO,3A,CA,B2 
81,E6,9F,92,CA,B2,C9,CD 
46,82,3A,CA,B2,F5,0F,0F 
0F,E6,07,5F,16,00,FD,19 
F1,E6,07,3C,CB,08,CB,09 
3D,20,F9,FD,7E,00,A0,B1 
FD,77,00,CD,ES,BO,CD, 46 
B2,CD,26,B2,CD;CB,B1,06 
08,D5,E5,9E,08,FD,5E,00 
CD,EC,Bí,E1,Di,CD,EO,Bí 
FD,23,10,ED,C9.CD 46,82 
1340 DATA 0E,BF,1E,07,CD,CB,B1,06 
1350 DATA 08,0E,05,C5,05.E5,06,08 
1360 DATA FD,7E,00,07,F5,9F SF, 3E 
1370 DATA 05,CD,EC,B4,CD,Dó,B4,CD 
1380 DATA Dó, Bí,FÍ,10,EE,ES,Dí,CL 

0,B1,0D,20,DD,CD,EO 
1400 DATA B1,FD,23,10,D4,09,01,00 
1410 DATA 08,11,CB,B2,2A,20,F9,05 
1420 DATA DS,3A, 1F,F9,CD,0C,00,FB 
1430 DATA DárCi,12,43,29,05.76,B4 

ED,CD,72,00,36,E9,F3 
1456 DATA 67 +07107,07,4F,3A,EA,FI 
1460 DATA B1,01,00,18,2h,C9,F3,CD 
1470 DATA 56,00,24,0B,B4,04,0A,FF 


1480 DATA 1E,06,9E,11,CD,BA,B1,21 
1 BE AA, 1E,06,3E 
A,B1,21,30,31,04 
E,06,3E,02,CD, BA 


1590 DATA 77,E5,CD,C6, , 
1540 DATA FB,C9,FS,C5,E5,CD,CB,Bí 
1550 DATA Cí, FÍ,5F,F4,F5,D5,E5,F5 
5,78, CD,EC,Bí,Eí 
0,B1,0D,20,FA,Cí 
0 EB E1,D1,FÍ,FS 
«E5,9E,01,CD,EC,B1 
1600 DATA CD,EO,B1,10,F6,E1,D1,CD 
1610 DATA D6,B1,0D,20,FA,CL,F4,9D 
1620 DATA 20,E5,C9,06,00,50,CD,11 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


04,CD,14,01,57,C9,CB,0A 
DO,05,01,08,00,09,Cí,C9 
23,7D,E6,07,C0,C5,01,F8 
00,09,01,09,C05,47,CD,4A 
00,4F,7A,2F Ai, CB,03,30 
01,82,05,28,0C,CB,0A,30 

00,CD,D9,81,18 


0F,83,C6,07, 

B2,F5,CD,3C,82,C6,0C,4F 
F1,0F,0F,0F,0F ,CD,9C,B2 
C6,08,5F ,C9,E6,0F ,57,07 
47,07,07,80,82,C9,3A,C9 
B2,6F,26,00,29,29,29,EB 
FD,21,CB,B2,FD,19,09,06 
00,05,D5,CD,76,B2,Di,Ci 
04,21,40,1F,CD,90,00,20 
5,20,F6,18,E9 
B,B2,03,9F 00 
CD,CB,Bí,F1,47,5F,DS 
E5,CD,4A,00, AA, CD, 4D,00 
CD,D6,B1,10,20,F3,Eí,Di 
CD,EO,B1,10,EA,C9,01,00 
08,11,80,BB,ED,59,20,F9 
21,C8,82,ED,BO,CD,38,01 
07,07 ,E6,03,4F 106, 00,21 
C1,FC,09,CB,7E,28,0E,21 
9, 7E 07107 107107 
1,CB,FF,92,1F,F9 
09,00,00,01,24,79,4F,4F 
á 7 E? ES, 2A, SE, EC 


AF ;BE,20,0D,79,BE,23,3E 
00,C0,CB,7E,23,28,FB,18 
EF,23,7E,23,A1,BE,2: 
23,28,0D,CB,7E,20,F3,7E 
0, FB, CB,7E ,20,EA 
8,23,29,29,18,F8 
5,21,33,63,01,05,00 
ED,B1,C1,E1,28,0D,C9,FE 
E9,28,08,C9,FE,45,28,03 
FE,4D,CO,F5,9E,FF,32,47 
1,09,18,03,76,C9,E9 
4,62,18,0B,CD,DA,62 
D,D4,62,CD,31,64,78 
CD,31,64,3E,48,09,41,64 
79,E6,38,18,F3,9E,49,C8 


2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 


“4 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


59,28,02,9E,52,18,22,C3 
38,64,9E,90,11,9E,31,11 
3E,32,18,15,CD,29,64,CD 
84,63,18,3F,CD,29,64,CD 
9B,63,18,37,CD,87,63,3E 
27,03,41,64,3E,0E,11,3E 
20,11,9E,26,11,3E,08,11 
3E,00,11,3E,07,18,77,FE 
06,28,EC,E6,9E,C6,08,FE 
9C,20,68,3A,55,EC,C6,0C 
18,64,CD,29,64,CD,D4, 62 
€D,48,63,3E,29,18,CA,CD 
29,64, C5,CD,3D,63,C1,18 
F2L CD, 29,64 CD;A3,63,18 
EA,E6,03,87,C6,10,18,9E 
CD,D4,62,9A,SE,EC,8B1,47 
36,5F,EC,CE,00,C8,79,28 
01,3D,03,44,69,79,E6,07 
FE,06,20,22,CD,29,64,CD 
A3,63,34,55,EC,B7,28,BB 
C5,CD,D4,62,C1,87,28,83 
16,28,F2,09,64,16,2D,ED 
44,CD,2B,64,18,h2,21,AF 
64,85,6F,30,01,24,7E,E6 
7E,FE,20,04,41,64,BE,FB 
23,18,F3,FD,21,Dí,EC,18 
ED,16,28,FD,72,00,FD,23 
C9,F5,0F,0F,0F,OF,CD,3A 
64,F1,E6,0F,FE,0A,DE,69 
27,FD,77,00,FD,23,C9,3E 
0D,18,F6,FD,21,13,ED,3E 
50,FD,2B,FD,36,00,20,3D 
20,F7,09,38,98,E5,98,E8 
BA,80,E8,9B,3B, SF ,ES,EB 
38,90,9B,A3,9B,EB,E5,87 
70,50,98/93,E5/62,38,65 
38,68,38,84,63,74,99,93 
74,93,55,55,93,01,98,97 
3B,CB,3B,8D,90,60,A3,93 
AA, AA,93,38,38,93,38,EB 
38,98,3D,C9,D0, DO, 3B, CB 
3D,3D,38,99,87,B7,93,A3 
B7,B7,A3,9B,B7,B7,9B,C2 
C3,C4,C5,C8,CC,CD,Cí,42 
C3,44,05,48,CC,53,D0,4E 
DA, SA, AO, 4E,C3,43,40,50 
CF, 50,05,50,00,4D,A0,41 
C6,49,DB,49,D9,28,43,A9 
3F,43,49,C6,2F,43,50,CC 


| 
| 
| 
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2o10 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
e7Bo 
2790 
2800 
2810 
2820 
2890 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2959 
2960 
2970 
2980 
2990 
3000 
aoio 
3029 
3030 


3050 
3060 
3070 
3oBo 
3090 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 49 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


jO DATA 


DATA 
DATA 
DATA 
DATA 
DATA 


27,44,41,C4,E3,44,09,FB 
45,09,D9,45,58,DB,76,48 
44,4C,D4,47,52,4C,C1,07 
52,4C,43,C1,1F,52,52,C1 
0F,52,52,43,01,97,53,43 
C6,00,FF,24,26,FF,22,27 
FF;3A,24,FF,32,25,FF,E9 
10,EF,02,11,EF,0A,12,C0 
40,09,07,06,4E,CF,04,4F 
AC, CA, FF, CE, 4D,FB,88,0C 
41,44,C3,FF ,C6,4D,F8,B0 
0C,CF,09,08,41,44,C4,FF 
E6,1C,FB,A0,01,41,4E,CA 
FF,CD,23,07,C4,22,43,41 
AC, CC,FF,FE,1C,FB,B8,01 
43,D0,07,05,06,CF,0B,04 
44,45,C3,FF,10,21,44,40 
4E DA, FF EB 18, FF ,E3,49 
FF,08,0A,45,DB,FF DB, iA 
49 CE, C7 104,06, CF 03,04 
14E, C9,C7 2,22, FF 3 
23,FF.E9,15,4A,DO,FF, 18 
E7,20,20,4A,D2,FF,D3 
5, DA, FF 1 00,00,4E 
4F,DO,FF ,F6,1C,FB,B0,01 
4F,D2,CF,C1,16,50,4F,DO 
CF,C5,16,50,55,53,C8,FF 
C9,00,07,C0,47,52,45,D4 
C7,C7,08,52,53,D4,FF,DE 
1D,F8,98,0C,53,42,C3,FF 
8,90,01,53,55,C2 
+4C,FB,AB,01,58,4F 
D2/00,74,66,6F,53,20,79 
6E,69,54,00,00,40,05,42 


5,53,45,D4,FB,10 
C,FB,18,01,52,D2 
1,52,4C,C3,F8,08 
2,523, F8,20,01,53 
4,F8,28,04,53,52,C1 


4,B9,43,50,44,D2 
0,C9,B1,43,50,49 
9,4E CA, BA, 4 
2,49,4E,C9,B 
2,A8,40,44,€ 


oRSBDOUDATNASTSO 


Eram 
A] 
Foo 
[ei] 
Exa 
Eos 
[STE] 
ostecd 
Era 
Exaa 
Es 
[SD 
[1230] 
[294] 
[DEED | 
noso 


a 
a 


3100 
EFEU) 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
aoio 
3220 
3230 
3240 
3250 
ESA 
3270 
3280 
3290 
3300 
aa10 
3320 
3330 
3340 
3350 
Basa 
3370 
3380 
3390 
3400 
3a1O 
3420 
3490 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
a510 
3520 
3530 
3540 
3550 
3560 
3570 
a580 


48 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


54,49,D2,AB,4F,55,54,C4 
A3,4F,55,54,C9,4D,52,45 
54,09,45,52,45,54,CE,6F 
52,40 ,C4,67,52,52,C4,00 
CF,4A,07,41,84,C3,FF,46 
OD; FF, 56,0E FE .SE OF ,4? 


F,43,29,F7,5; 
4,40,04,07,4 
55,D4,CF,42,07,5; 
00,20,77,7E,24,9: 
09,86,19,8E,23, As 
34,86,35,BE, 36,2] 
46,E3,4E,E5,56,E 
66/6E,70,71,72,73,7: 
3F BF ,CD,F3,43,28,0,; 
+28,14,03,47,49,24, 
671CD,02,67,CD,9F 00, ES 
CD,B4, 2rFsIFELOS. CO ra 
7 17E,B7 CB, CD,B 
118,F7,45,44, 4915 
52,20,43,4F, Fay AD,4 


49,53,54,20 38! 6E,31,58 
20,6E,32,5D,5D,0D,41,55 
54,4F ,20,5B,6E,31,5B,20 
6E,92,5D,5D,0D,52,45 

55,40,20,5B,6E,31,5B,20 
6E,32,5B,2C,6E,33,5D,5D 
5D,0D,44,45,40,45,54,45 
20,6E,91,5B,2D,6E,32,5D 
0D,46,49,4E,44,73,0D,53 
45,4 3,48,73,0D,4€ 
53,45,41,52,43,48,73,0D 
43,48,41,4E,47,45,64,73 
31,64,58,79,92,5D,0D,53 
41,56,45,20,22,66,69,60 
65,20,6E,61,6D,65,22,0D 
4C,4F,41,44,20,22,66,69 
6C,65,20,6E,61,6D,65,22 
2,47,45,20,22 
5,20, 6E,61,6D 
D, 41,50,0D,44 
+50,4F ,49,52,53 
44,48,2F,78,70,5D,0D,42 
41,0D,00,0D,4D,4F,4E,49 
54,47 ,52,20,43,4F/4D,4D 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


41,4E,44,0D,0A,43,78,20 
20,20,20,20,20,20,20 
20,20,20,43,68,61,6E,67 
65,20,64,75,6D,70,0D,44 
78,78,58,2C,79,79,5D,20 
20,20,20,20,20,44,75,6D 
0,20,6D,65,6D,6F 172,79 
0D,50,78,78,58,20,79,79 
5D,20,20,20,20,20,20,50 
72,69,6E,74,20,6D,65,6D 
6F,72,79,0D,56,78,78,58 
20,79,79,5D,20,20,20,20 
20,20,56,2D,52,41,4D,20 
70,7216916E,74,0D,4D,5B 
78,78,5D,20,20,20,20,20 
20,20,20,20,4D,65,6D,6F 
72179120,73,65174,0D,53 
5B,78,78,5D,20,20,20,20 
20,20,20,20,20,53,65,74 
20,6D,65,6D,6F,72,79,0D 
46,78,78,20,79,79,2C,7A 
20,20,20,20,20,20,46,69 
6C,60,20,6D,65,6D,6F,72 
79,0D,54,78,78,20,79,79 
2C,7A,7A,20,20,20,20,20 
54,72,61,6E,73,66, 65,72 
00,52,58,78,78,5D,20,20 
20,20,20,20,20,20,20,52 
65,61164,20,74,61,70,65 
0D,58,58,72,50,20,20,20 
20,20,20,20,20,20,20,65 
78,61,6D,69,6E,65,20,72 
65,67,2E,0D,47,78,78,5B 
20,79,79,58,20,7 
5D,20,47,6F,0D,4 
5D,58,78,78,5B,2! 
5D,5D,20,64,69,7: 


73,65,6D,62,60,65,0D,3F 
58,9F,5D,20,20,20,20,20 
20,20,20,20,20,64,69,73 
70,60,61,79,20,74,68,69 


+32,30,FA,0E,40,CD,95 
69,38,03,32,31,FA,21,09 
FC,06,40,7E,87,38,28,23 
10,F9,2A,48,FC,11,00,80 
B7,ED,52,20,1D,21,30,FA 


47 


4080 DATA 3A,Cí,FC,BE,28,14,23,BE 
1,F0,69,11,00,C1 
0 ED, BO,CD,00,Ci 
7 1C9,21,C1,FC 


4440 DATA SF,F4,DS,FS,CD,14,00,F4 
4150 DATA D1,F5,D5,CD,0C,00,C1,47 
4160 DATA 79,2F SF FA FS CS, CD/44 
4170 DATA 00,C1,79,88,20,17,F4,2D 
4180 DATA 20,09,24,24,24,24,4F,70 
8,05,FE,80,79,20 
4, E1,C9,F1,E1,C1 
4210 DATA B7,F2,EA,69,C6,04,FE,90 
C,40,AD,37,C9 
6,00 ,CD, 40, Ci 
6,40 ,CD,4C, Cí 
A, 32, FA, DI, AB 
91 CD, 49,CL, FA 
B,Ai,BO,D3,AB 
1,28,13,E5,CD 


9,77 1EL,79,18 
43410 DATA DB, CD,A£,C1,24,05,FC,72 
4320 DATA C9,F3,F5,7C,07,07,E6,03 
4330 DATA SF; 4C,3E,C0,07,07,1D,20 
4340 DATA FB,SF,2F,4F,F1,F5,E6,03 


3, AB, 3a, FF 

+32, FF, FF 
a 0b/28.2A! 20 
0,49/40,41,44 
20,41,53,4D,43,4F 
B,Bó,AB,BO 
4510 DATA AD,BE, DÊ: BE,B3,BA,AF,B7 
4520 DATA DF,D2,DF,D7 CF CE -CE Dó 
4530 DATA DF,C7,CB,CC,D2,CC,CD,CF 
4540 DATA CD,FF,20,00,00,00,00,00 


s8 


Com o programa digitado e gravado corretamente, 
comande RUN para executá-lo. À tela deverá estar como 
mostra a figura a seguir: 


Ega 


Você tem agora em seu micro um poderoso editor de 
caracteres com dois modos de operação, SELEÇÃO e 
EDIÇÃO. O modo SELEÇÃO permite a escolha do caractere 
a ser editado. O modo EDIÇÃO permite a alteração do 
seu “desenho”. Logo após ser carregado, o programa 
opera no modo SELEÇÃO. Experimente usar as teclas de 
setas e observe o que acontece com o cursor (na tabela 
de caracteres) e com o quadrado no canto superior 
direito do vídeo (CARACTERE AMPLIADO). 

Para alterar ou redesenhar completamente um dado 
caractere. deve-se inicialmente levar o cursor até ele 
com a ajuda das teclas de setas. 

Feito isso. deve-se entrar no modo de EDIÇÃO. 
pressionando a tecla RETURN. Assim procedendo. o 
cursor desaparecerá da tela e um pequeno ponto será 
visível no quadrado do CARACTERE AMPLIADO. onde poderá 
ser feita a edição. 

Para apagar os pontos marcados do caractere a ser 
editado. basta pressionar a BARRA DE ESPAÇOS. 

Para marcar um ponto no caractere, basta 
pressionar a tecla da letra “Mº (de Marcar). 


ag 


Após redesenhar o caractere. para voltar ao modo 
de SELEÇÃO. basta pressionar RETURN novamente. 

Uma vez alterados ou redesenhados os caracteres, 
deve-se avisar ao programa que essa nova tabela deve 
ser usada, Para isso basta pressionar a tecla da letra 
“0” (de Confirmar). 

Por fim, para sair do programa e retornar ao 
BASIC, pressiona-se a tecla da letra “9” (de Sair). 

Resumindo, temos os seguintes comandos à nossa 
disposição: 


SETAS 
6 


Movem O cursor; 
Confirma o uso 


E) 
RETURN 


ESPAÇO - 
[o É Marca pontos no caractere om adição: 


Até agora vimos como usar o programa para gerar e 
assumir uma nova tabela de caracteres, Vamos aprender 
como usar essa nova tabela, 

Após ter retornado ao BASIC é convenienti 
de mais nada, salvar a nova tabela em fit 
disco, Par , comando, 


BSAVE “TABELA.DAT”, &HBEBO, &HCIBO 


A seguir, apague o programa em BASIC que está na 
memória do micro comandando NEM e SCREEN 1 

Caso você queira carregar uma tabela já salva em 
tita ou em disco e assumí-la. basta comandar: 


BLOAD/ TABELA. DAT” 
POKE &HF920, &HBO 
POKE &HF921,&HBB 
86 para o EXPERT: 
POKE &HF94F,2 
S6 para o HOTBIT: 
POKE &HF91F,3 
uir, dev usar o comando SCREEN. 


Para voltar a operar com a tabela original da 
ROM, rode o programinha mostrado a seguir. 


se 


10 POKE &HF94F,O 

20 POKE &HF920, &HBF 
30 POKE &HF924,8H1B 
40 SCREEN 1 


Agora experimente redefinir a tabela de 
caracteres como mostrado abaixo: 


BIBLIOGRAFIA RECOMENDADA: 


Coleção de Programas para MSX v.1 - páginas 83 a 86. 

Coleção de Programas para MSX v.2 - páginas 10 a 24, 
73 e 83 a 85, 

Aprofundando-se no MSX - capítulo 4. 

Programação Avançada em MSX - página 145. 
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2.6 - SCROLL UP PARA A SCREEN 6 


O programa apresentado a seguir gera uma rotina 
em L.M, para girar a SCREEN O para cima. A rotina em 
L.M, é carregada a partir de &HEGOO e pode ser chamada 
pela instrução USR. 

As linhas finais do programa em BASIC ilustram 
uma utilização da rotina em L.M, em conjunto com O 
BASIC. 


100 REM ======———==. 
110 REM SCROLL SCREEN 
120 REM ========—>. 
130 FOR F=8HE000 TO &HEO46 
140 READ AS : POKE F,VAL(“&H/+AS) 
150 NEXT F : DEFUSRO=&HE000 

160 DATA 21,00,00,22,44,E0,06,17 
DATA F3,21,28,00,ED,5B,44,E0 
DATA 49,05,CD,2F EO CÍ, 2A,44 
DATA E0,11,28,00,19,22,44,E0 
DATA 10,E7,21,98,09,01,28,00 
DATA 3E,20,CD,56,00,FB,C9,E5 
DATA DS,04,28,00,C5,44,18,FC 
DATA D5,CD,59,00,EL CL .Dí CO 
DATA 
REM - 
REM Exemplo de uso 
REM --- 
SCREEN O + WIDTH 40 = KEY OFF 
X = 40 * RND(i) 

LOCATE X,20 2 PRINT “.”; 

X = USRO(O) 

Goro 290 


BIBLIOGRAFIA RECOMENDADA + 
Aprotundando-se no MSX - capítulo q. 

Programação Avançada em MSX - capítulo 2) 

Coleção de Programas para MSX v.2 - páginas 130 e 131. 


se 


2.D - SCROLL DOWN PARA A SCREEN 6 


O programa apresentado a seguir gera uma rotina 
em L.M. para girar a SCREEN O para baixo. A rotina em 
LM. é carregada a partir de SHEQRO é pode ser chamada 
pela instrução USA. 

As linhas finais do programa em BASIC ilustram 
ma utibização da rotina em LM. em conjunto com o 

! 


REM = 
REM SCROLL GOREEN O DOWN-I Rubens Jr. 
EM — 
FOR F=8HE000 TO &HE049? 

READ AS 2 POKE F.VALC“&HV+AS) 
NEXT F 3 DEFUSRO=81E000 
DATA 21,70,03,22,47,E0,06,47 
DATA F3,21,28,00,ED,58,47,E0 
DATA 19,EB,C5,CD,32,E0,Ci,2A 
DATA 47,E0,11,28,00,B7,ED,52 
DATA 22,47,E0,10,E4,21,00,00 
DATA 01,2B,00,3E,20,CD, 56,00 
DATA FB,09,E5,D5,01,28,00,C5 
DATA 41,18,FC,DS,CD,59,00,E1 
DATA C1,D1,CD,5C,00,E1,09,00 
DATA 00,90,00,00,00,00,00,00 
REM mplo de uso 
REM 


SCREEN O 3 WIDTH 40 : KEY OFF 
X = 40 x RND(Í) 

LOCATE X,0 3 PRINT “.”; 

X = USROto 


Boro 300 


BIBLIOGRAFIA RECOMENDADA 


Aprofundando-se no MSX — capítulo 4. 
Programação Avançada em MSX - capítulo 2. 
Coleção de Programas para MSX v.2 - páginas 130 e 131, 
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2.E - SCROLL LEFT PARA A SGREEN 6 


O programa apresentado a seguir gera uma rotina 
em L.M. para girar a SCREEN O para a esquerda. À 
rotina em L.M. é carregada a partir de BHEQDO e pode 
ser chamada pela instrução USR. 
has finais do programa em BASIC ilustram 
uma utilização da rotina em L.M. em conjunto com O 
BASIC. 


100 
110 
120 
130 HE000 TO &HEOIF 

149 READ AS 3 POKE F,VAL(“&HV+AS) 
150 NEXT F : DEFUSRO=8HE000 

160 DATA 21,00,00,22,3D,E0,06,18 
170 DATA F3,C5/CD,1C,EO,C1,26,3D 
180 DATA E0,11,20,00,49,22,3D,E0 
190 DATA 10,EF,FB,C9,E5,01,28,00 
200 DATA C5,11,10,FC,D5,CD,59,00 
210 DATA 21,49,FC,11,18,FC,01,27 
220 DATA 00,ED,B0,9E,20,12,E1,C1 
230 DATA CD,5C,00,C9 

2a 
250 
260 - 
270 SCREEN O 2 WIDTH 40 2 KEY OFF 
280 X = 23 4 RND(1) 

290 LOCATE 39,X & PRINT“; 

300 X = USRO(O) 

340 Goro 280 


BIBLIOGRAFIA RECOMENDADA: 

Aprofundando-se no MSX — capítulo 4. 

Programação Avançada em MSX - capítulo 2. 

Coleção de Programas para MSX v.2 - páginas 130 e 131. 
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B.F - SCROLL RIGHT PARA A SCREEN 6 


O programa apresentado a seguir gera uma rotina 
em L.M. para girar a SCREEN O para a direita. A rotina 
em L.M. é carregada a partir de SHEGOO e pode ser 
chamada pela Instrução USA. 

As linhas finais do programa em BASIC Ilustram 
uma utilização da rotina em L.M. em conjunto com O 
BASIC. 


100 REM - 
REM SCROLL SCREEN O RIGHT Rubens sr EE 
FOR F=8HE000 TO &HEOIF 
READ AS E POKE FSVALC(“RHV+AS) Ra 
NEXT F 3 DEFUSRO=8HE000 Era 
DATA 21,00,00,22,3D,E0, 06,18 Eri 
DATA Fo 11,20,06 19/28, 3D/E0 Kia 
ATA EO, 128, r 22, , 
B ESC 
Ex 
Ea 
[ro] 


DATA 10,EF,FB,C9,E5,01,28,00 
DATA C5,11,18,FC,D5,CD,59,00 
DATA 21,3E,FC,41,3F FOOL ,27 
DATA 00,ED,BO,3E,20,42,E1,Ct ET 
DATA D4,CD,50,00,09,00,00,E1 


BIBLIOGRAFIA RECOMENDADA: 

Aprotundando-se no MSX - capítulo 4. 

Programação Avançada em MSX - capítulo 2 

Coleção de Programas para MSX v.2 - páginas 130 6 131. 
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2.6 - SCROLL UP PARA A SCREEN 1 


O programa apresentado a seguir gera uma rotina 
em L.M, para girar a SCREEN 1 para cima. A rotina em 
L.M, é carregada a partir de 8HEQOO e pode ser chamada 
pela instrução USR, 

As linhas finais do programa em BASIO ilustram 
uma utilização da rotina em L.M. em conjunto com O 
BASIC. 

Experimente usar esta dica em conjunto com a: 
apresentadas no item 2,8 (Movimentos na tela). Você 
conseguirá na SCREEN 1 movimentos globais de SGROLL 
suaves é bastante rápidos 


100 


- Rubens dr. 


Eu 
Elisa 
FOR F=8HE000 TO 8HE046 Es 
READ AS : POKE F.UALCC&HHAS)  padaa 
Era 
tecises 
Ea 
ERA 


NEXT F 3 DEFUSRO=8HEO0O 

DATA 21,00,18,22,44,E0,06,17 
DATA F3,21,20,00,ED,5B,44,E0 
DATA 49,05,CD,2F,EO,CL, 28,44 
DATA E0,11,20,00,19,22,44,E0 
DATA 10,E7,21,E0,1A,01,20,00 
DATA JE ,20,CD,56,00,FB,C9,E5 
DATA D5,01,20,00,05,44,48,FC 


DATA 5C,00,E1,09,00,00,09,00 


Ea 
DATA D5,CD,59,00,E1,C1,D1,CD E 
iam 
PEA 
[oco 
rm 


300 LOCATE 
310 X = USRO( 
320 GOTO 290 


BIBLIOGRAFIA RECOMENDADA, 


Aprofundando-se no MSX - capítulo 4, 

Programação Avançada em MSX - capítulo 2. 

Coleção de Prográmas para MSX v.2 - páginas 12. 130 8 
56 


2.H - SCROLL DOWN PARA A SCREEN 1 


O programa apresentado a seguir gera uma rotina 
em L.M. para girar a SCREEN 1 para baixo, A rotina em 
LM. é carregada a partir de 6HE000 e pode ser chamada 
pala instrução USA. 

AS linhas finais do programa em BASIC ilustram 
uma utilização da rotina em L.M. em conjunto com O 
BASIC. 

Experimente usar esta dica em conjunto com às 
apresentadas no item 2.8 (Movimentos na tela). Você 
conseguirá na SCREEN 1 movimentos globais de SCROLL 
suaves e bastante rápidos! 


100 REM Sc] 
110 REM 5 EEE 
120 REM ELE 
130 FOR F=8HE000 TO &HE049 Eixo 
READ AS 2 POKE F VAL C(“AHU+AS) 
NEXT F 3 DEFUSRO=&HEQ0O mera 
DATA 24,00, 1A,22,47,E0,06,17 Eroa 
DATA F' +47 EO sta 
DATA 4 +C5,CD EO,Ct,2A 
ExZa 
[ETES] 
Eca 
Eira 
nitia 
[CITE 


SCREEN 1 DOUN-Rubens Jr. 


DATA 47,E0,11,20,00,67,ED,52 
DATA 22,47,E0,10,E4,21,00,18 
DATA 01,20,00,3E,20,CD, 56,00 
DATA FB,C9,E5,D5,01,20,00,05 
DATA 44,18,FC,DS,CD,59,00,Ei 
DATA CADA, CD,5C,00,E1,09,00 
DATA 00,0E,00,00,00,00,00,00 
REM —— 
REM Exemplo de uso 
REM -— == mm 
SCREEN 1 : WIDTH 32 = KEY OFF 
X = 40 * RNDC1) 

LOCATE X,0 E PRINT “."s 

X = USROCO) 

Goro 300 


BIBLIOGRAFIA REGOMENDADA: 
Aprofundando-se no MSX - capítulo 4. 


Programação Avançada em MSX - capítulo 2. 
Coleção de Programas para MSX v.2 - páginas 12, 130 e 
131. 
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2.1 - SCROLL LEFT PARA A SCREEN 1 


O programa apresentado a seguir gera uma rotin 
em L.M. para girar a SCREEN 1 para a esquerd 
rotina em L.M. é carregada a partir de 8H 
ser chamada pela instrução USR. 

As linhas finais do programa em BASIC ilustram 
uma utilização da rotina em LM. em conjunto com 
BASIC. 

Experimente usar esta dica em conjunto com as 
apresentadas no item 2.8 (Movimentos na tela). Você 
conseguirá na SCREEN 1 movimentos globais de SCROL 
suaves e bastante rápidos! 


100 REM — 
110 REM SCROLL SCREEN 1 LEFT- Rubens Jr .! 
120 REM 
130 FOR F=8HE000 TO &HEO9F 
140 READ AS 2 POKE F.VAL(C&HU+AS) 
150 NEXT F : DEFUSRO=8HE000 

160 DATA 21,00,18,22,3D,E0,06,18 
170 DATA F3,C5,CD,1C,E0,C1,26,3D Etr 
180 DATA E0,11,20,00,19,22,3D,EO 
190 DATA 10,EF,FB,C9,E5,01,20,00 
200 DATA C5,14,18,FC,D5,CD,59,00 
210 DATA 24,19,FC,11,18,FC,04,4F 
220 DATA 
230 DATA 
240 REM - 
250 REM 
260 REM —- 
270 SCREEN 1 3 WIDTH 92 à KEY OFF. 
280 X = 23 * RND(1) 

290 LOCATE 34,X : PRINT“, 
300 X = USRO(O) 

340 GoTo 280 


BIBLIOGRAFIA RECOMENDADA: 


Aprotundando-se no MSX - capítulo 4. 
Programação Avançada em MSX - capítulo 2. 
Colação de Programas para MOX v.2 - páginas 12, 150 e 
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2.4 - SCROLL RIGHT PARA A SCREEN 1 


O programa apresentado a seguir gera uma rotina 
em L.M. para girar à SCREEN 1 para a direita. A roti 
em L.M, é carregada a partir de &HEBOB e pode ser 
chamada pela instrução USR. 

s linhas finais do programa em BASIC ilustram 
uma utilização da rotina em L.M. em conjunto com O 
BASIC, 

Experimente usar esta dica em conjunto com as 
apresentadas no item 2.8 (Movimentos na tela). Você 
guirá na SCREEN 1 movimentos globais de SCROLL 
e bastante rápidos! 


REM ==--: 
REM SCROLL SCREEN 4 RIGHT-Rubens Jr ER 
FOR HE900 TO &HEO3F 
READ AS 2 POKE Fo VALCCRHC+Ag) 
NEXT F 2 DEFUSRO=8HE000 
DATA 21,00,18,22,3D,E0,06,18 
DATA F3,C5,CD,1C,E0,C1 
DATA E0,11,20,00,19,22 
DATA 10,EF,FB,C9,E5,01 
DATA C5,11,18,FC,D5,CD, 59,00 
21,36,FC,41,37,FC,01,1F 


SCREEN 1 3 UIDIH 32 * KEY OFF 
X = 23 * RND(1) 

ROBATERBEA PRINT “.”s 

Goro 280 [ra 


BIBLIOGRAFIA RECOMENDADA + 


hprofundando-se no MSX - capítulo 4. 
Programação Avançada em MSX - capítulo 2. 
RR ce roscas, para RSRS piginas 18, 198 8 
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B.K - CENTRALIZANDO CARACTERES 


Os caracteres são desenhados dentro de uma matriz 
de BxB posições. Muitos deles usam apenas o lado 
esquerdo dessa matriz e há casos em que ao serem 
impressos na SCREEN 1 ou SCREEN 2 ficam fora de 
alinhamento, Podemos evitar isso de uma forma bem 


simples e rápida, redefinindo os caracteres. À título 
de exemplo, vamos “centralizar” os teres dos 
números e das letras maiúsculas na SCREEN 1, 
100 SCREEN 4 nr 
iio FOR Enéias TO 6LAA+24NB2-1 STEP 2 
120 — VPOKE FASC(rR” 
130 NEXT F 2 LOCATE 10,410 ERRA 
140 PRINT “0429456789”: LOCATE 2,12 MMA 
150 PRINT “ABCDEFGHI.JKLMNOPGRSTUVUXYZ” Mila 
FOR F=ASC(/0") TO BMASC(97)4+7 Esta 
VPOKE F,UPEEK(F)/2 
NEXT F a mix 
FOR F=ASC(/A!) TO BXASCC/Z7)47 
VPOKE F,UPEEKC(F)/2 
NEXT F 
RC E 
NORMAL 22 .4 
it ca Eat 


BIBLIOGRAFIA RECOMENDADA: 


Coleção de Programas para MSX v.2 - páginas 72 e 73. 
Aprofundando-se no MSX - página 96. 


so 


2.L - ANIMAÇÃO COM SPRITES 


Se você definir vários SPRITE's com uma figura em 
posições sucessivas e os colocar na tela sempre 
Pa comodo. “om 5 quência, elas darão o efeito de 
ção. 

Se você quiser alterar o desenho do “boneco” no 
ia listado guir. uma boa idéia é eliminar a 
digitando seu conteúdo manualmente no modo 

. A seguir você interrompe a listagem na 
ncia de linhas DATA que definem o SPRITE a ser 
ado, modifica o desenho e comanda RUN. Desta 
você pode congelar o boneco com STOP e alterar 
se 1's da linha DATA, visualizando o efeito 
jor à alteração. 

Obviamente você pode definir SPRITE'S de 16x16 

pixeis, obtendo figuras muito mais detalhadas. 

Esse programa é apenas um exemplo (parece um 
ado tentando dançar BREAK!) mas pode ser alterado e 
horado conforme sua Imaginação 
gue papel quadriculado e lápis e monte su 
histórial 


90 SCREEN 1 

GOSUB 220:SPRITESC(0)=5% 
GOSUB 220:SPRITESC1)=5$ 
GOSUB 220:SPRITES(2)=5$ 
GOSUB 2207SPRITESC(3)=5$ 
GOSUB 22075PRITESC4)=55 

FOR I=í TO 250 STEP 10 

FOR 5=0 TO 4 

PUT SPRITE O,(1+5%2,30),8,5 
FORT=0T050:NEXTT 


FOR C=í TO 8 

READ K$ 

S$=55+CHRSCVAL (“8B+K$)) 
NEXT € 

RETURN 

DATA 00011000 

DATA 00011000 


nema 
81 


300 
310 
320 
330 
340 
350 
360 
azo 
ago 
avo 
400 
asO 
420 
430 
4a0 
450 
A60 
470 
aBo 
aço 
500 
510 
520 
530 
540 
550 
560 
570 
Sao 
590 
600 
s10 
420 
630 
640 
650 
460 
470 
s80 
490 
700 
710 
720 


DATA 00111100 
DATA 00111100 
DATA 00111100 
DATA 00011000 
DATA 00011000 
DATA 00011100 
REM-——— 
DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 04011010 
DATA 01011010 
DATA 00010100 
DATA C0L00ÍLO 
DATA 00110000 
REM-—— 
DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 01011010 
DATA 10011001 
DATA GOLVOLOO 
DATA 01000010 
DATA 01100014 
REM-——— 
DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 041011010 
DATA 10011010 
DATA 04100100 
DATA 01000100 
DATA 00000110 


DATA 00011000 
DATA 00011000 
DATA 00111100 
DATA 00111100 
DATA 01011010 
DATA 00101000 
DATA 00101100 
DATA 00111110 
REM-=== Eee 


BEECACOCALEEAACED RARA PERRESEESAREGEREASERE 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX - capítulo 4, 
Programação Avançada em MSX - capítulo 2. 


se 


2.M - LETRAS AMPLIADAS 


O programa apresentado a seguir gera uma tela 
SCREEN 2 podem ser inseridas 4 
0, experimente 
r o conteúdo das linhas 135, 145 0 1 
mbém alterar o caractere entre as aspas 
rada será gravada em disco ou 
5. Se desejar. altere o nome do 


COLOR 15,1,1 

SCREEN 2 

OPEN“GRP:” AS H4 

REM 

REM define mensagens 


XE CL)="7kxxxx” 

XCD) =" 000000000 
XSC3)=7XXXXXXXXXXXX 

KSA = KESRRKKKRRKESRRKEXRKKKKRAKAL” 
REM desenha mensagem 


ERE HRREREE 
E E ESSE 


REM 
X=6 .5+(245-BXLENCXS(4)))/2 
PSET(X, 170), POINTCX, 470) 

PRINT Hi, X5C4) 

PSET(X+1,470) ,POINTCX+1,170) 
PRINT Hi, X5C4) 

REM 

REM desenha linhas horizontais 


FOR F=6 TO 494 STEP .2 
F=F+yY 
LINE(B,F)-(247,F),9 
Wr= YYr + 4 

NEXT F 

REM 

REM desenha a moldura 

REM - 

FOR F=0 TO 255 STEP 8 
PSETCF,0),4 
PRINT Hi ,X5C0) 
PSET(F,191-7),4 
PRINT Há,X560) 

NEXT F 


a 
q 


290 FOR F=0 TO 494 STEP 8 
295  PSET(O,F),4 

300 PRINT Wí,X5C0) 

305  PSET(255"7,F),4 

310 PRINT Hí,X5(0) 

345 NEXT F 

320 REM 

325 REM desenha texto 

330 REM 
335 COLOR 44 

340 EN=PEEK (&HF 920) +2564PEEK (&HF921) 
345 FOR TX=1 TO 3 

350 — AS=XSCTX) 

355  Q=0 

360 FOR F=í TO LENÇAS) 

365 A=EN+BRASC CMIDSCAS,F,4)) 

azo FOR 6=0 TO 7 


375 B$=BINSCPEEK (A+) ) 

380 B$=RIGHTS( "00000000" +85,8) 

385 FOR H=í TO 8 

390 IF MIDSCB$,H,4)="4” THEN Qua+t 
395 NEXT H 

400 NEXT 6 

405 NEXT F 


410  P=2x0-1 

415 DIM X4P)aveP> S4Po,TERO 
425 
A30 FOR F=1 TO LENCAS) 

a35 A=EN+BMASC (MIDSCAS, F,4)) 
440 FOR 6=0 TO 7 

445 B$=BINS(PEEK (A+6)) 

450 B$=RIGHTS("00000000"+85,8) 


GEREERERARRROREAERSAERREESERSEEAESSEREEE 


ass FOR H=4 TO 8 
460 IF MIDS(B$,H,1)="0” THEN 490 

465 XCE)=I+H-4 

azo YCE)=8-6 

475 XCE+Q)=X(E) 

aBo YCE+Q)=YCE) 

485 EsE+t 

490 NEXT H 
495 NEXT 6 pes 
500 REM Ex 
505 — REM passo horizontal [5] 
510 faicT] 
515 ELE 
520 Cas 
ses ET] 
530 toa 


[E 


sas 

540 

545  Px=3 

550 IF TX=1 THEN PX=5 

55s REM 

069 REM parâmetro de escala Y 
565 REM —— 

570  PY=5, 

575 IF TX=1 THEN Py=7 

580 REM 


585 REM acha posições na tela 
590 REM -— 
595 XI=INTC(230-LENCAS) *PS4PX)/2) 
600 IF TX=í THEN XI=XI-8 

605 YI=90+45%TX 

640 IF TX=1 THEN YI=YI-4 

645 IF TX=2 THEN YI=YI-í 

420 IF TX=3 THEN YI=Y1+5 

625  DEFFN ACF)=XI4PXRXCF) 

630  DEFFN B(F)=YI-PYNYCF) 


640 REM “plota” círculos das letras 


645 REM — mm 

450 FOR F=0 TO P-1 

655 N ACF) REM x do centro 
660 N B(F) sREM y do centro 
665 87º :REM achatamento 
670 RD=4 :REM raio 


475 IF TX=1 THEN AX=1.4 E RD=ó 
680 — CIRCLEC(CX,CY) RD, +, AX 

685 — PAINTCCX,CY) 
690 NEXT F 

695  ERASE X,Y,8,T 
700 NEXT TX 

705 BSAVE"TELAXXXX.SCR”,O,&H3FFF,S 
740 GOTO 710 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX - capítulo 4. 
Programação Avançada em MSX - capítulo 2. 
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O comando DRAW do BASIG MSX é. na realidade, uma. 
macro-| inguagem gráfica que permite a confecção de 
desenhos nas telas 2 e 3, 

Sua sintaxe é simples: 


DRAW (expressão string) 


A montagem do desenho é feita através di 
expressão string segundo regras bem determinadas e 
fácil memorização. Para conhecê-los basta consultar | 
verbete DRAW do dicionário de comandos do livro 
LINGUAGEM BASIC M5X. 

A melhor maneira de se familiarizar com esse 
comando é gerar uma variável string contendo 08 
comandos desejados e ver o efeito na tela, 

Para facilitar a visualização do desenho obtido é 
conveniente “reticular” a tela (de 18 em 18 pontos, 


2.N - ENTENDENDO O COMANDO DRAW | 
] 
] 


por exemplo) antes da execução do desenho. Experimente 
digitar o programa a seguir, 

10 SCREEN 2 197. 
20 FOR L=0 TO 494 STEP 10 E 

30 FOR C=0 TO 255 STEP 10 (7 
ao PSET (CL) 
50 NEXT C 


Bo DRAW AS 


ERRA 
60 NEXT L trad 
70 AS="BM60, 6OULOF LODLOLSUSLSDSL IO” 
90 GOTO 90 cásta 


Agora vá alterando a variável A$ definida na 
linha BO com novos sub-comandos do DRAW e veja Os 
efeitos gerados por suas experiências até se 
familiarizar com esse poderoso comando. 


BIBLIOGRAFIA RECOMENDADA 


Linguagem Basic MSX - páginas 56 a 58. 
Coleção de Programas para MSX v.1 - página 54. 
Coleção de Programas para MSX v.2 - página 52. 
Curso de BASIC v.1 - páginas 61 e Ba. 


B& 


2.0 - “WARP 8º NA SCREEN 2 


você está Indo para o planeta da Princesa Vespa 
para salvá-la do terrível "Capacete Preto"! Para 
chegar lá você passa por um aglomerado de estrelas, 
com velocidade hiperfotônica. Como simular este 
efeito? Digite o programa a seguir é boa viagem! 


100 SCREEN 2:DEFINT I-S,X-Y com 
110 SPRITESCIDSCHRS (0) CENR$ (0) +CHRS (0) +cllEa 
HR$(0) +CHR$ CB) +CHR$(O) +CHR$ (0) +CHR5 (0) 
120 DIM X(31),Y(31),C(34),D(31), VXC34), VNERS 
Y(34),X4C31), YÍCIL 
FOR I=0 TO 34 tetra 
TO UIN > Eiisá 
3) ENEXTT 
NTCB ED) EI 
25 1 40 [Ea 
Y(0)=! sta 
5-55 Eiaddo tea 
EEB 
10% Es 
34 Emas 
«a *1%T"3/1000 
«a SMABSCUXCT NDT) E 
VX CD=YCD+AYCT) tia 
[TA 
OR vácI>co ola 
1, CXICD VLCIDD 4 
LE) 


340 NEXT 1 
320 NEXT T 
380 GOTO 330 


a 
o 


BIBLIOGRAFIA RECOMENDADA: 
Aprofundando-se no M5X - capítulo 4. 
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2.P - “"SPRITEANDO” A TABELA DE CARACTERES 


| 
Muitas vezes sentimos a necessidade de fazer 
tetras ou símbolos se movimentarem na tela como se 
fossem SPRITES. Isso é simples de ser feito: com 
podemos definir 256 SPRITES (8x8) e o MSX dispõe de. 
256 caracteres, podemos transformar cada caractere num. 
SPRITE! ! 
O programa a seguir procura o endereço do começo 
da tabela de caracteres na váriavel EN (contida nos 
endereços SHFODO e SHFS21) e transfere sua 
configuração para a região da VRAM reservada para os 
desenhos dos SPRITES. 


40 SCREEN 4 : DEFINT A-Z : KEY OFF eo 
20 ENI=PEEK(&HF920)+256XPEEK (&HF921)  EREM 
30 FOR F=0 TO 2047 eeua 
40 VPOKE 14336+F, PEEK (EN! 4F) Ec] 
50 NEXT rama 


Após rodar este programa cada | SPRITE 
corresponderá a um dos 256 caracteres do M5X, sendo. 
seu número o próprio código ASC do caractere. 

Para ver um dos mil efeitos possíveis 
empregados com esse recurso, digite a complementação: 
do programa, a seguirs 


40 INPUT Ag 

70 L=LENCAS) 3 C=3 

Bo FOR I=í TO L 

90 CHS=MIDSCAS, 1,1) 

100 CH=ASC(CHS) 

110 FOR TO 96 

120 PUT SPRITE I,((C+1)4B,Y-1) 
430 NEXT 

140 LOCATE C+1-2,42,0 4 PRINT CHS 
150 NEXT 


> 
2 


Para rodá-lo, se você já rodou o 
anterior. basta digitar GOTO 60. Desta forma não 
perdemos o tempo de transferência da tabela de 
caracteres para a área de SPRITES da VRAM. O programa 
pede a entrada de uma string (seu nome, por exemplo). 
Evite os caracteres gráficos de código entre Q e 31. 

implemente agora seu programa de maneira a 
aceitar qualquer caractere. 


58 


2.0 - ARLEQUIM BEBADO 


Quando ativamos a SCREEN 1, os 32 bytes da VRAM 
compreendidos entre os endereços B192 e 8223 ficam 
reservados para atributos de cores. Cada um desses 
bytes define a cor de frente e a cor de fundo de um 
conjunto de 8 caracteres (B*32-256). 

Digite o programa a seguir para entender melhor 
este mecanismo. 


100 SCREEN 42KEY OFFIDEFINT A-Z 

110 FOR L=0 TO 15 

420 FOR C=0 TO 15 

430 VPOKE 6102+32%L+C, 16%L+C 

440 NEXT C 

150 NEXT L 

160 LOCATE 3,20,02PRINTCBYTE ALTERADO=" ; 
470 GOTO 190 

180 A=STICK(O):IF A=0 THEN GOTO 180 
190 I=I-(A=3)+(A=7)-2x(A=5) +2% (Ani) 
200 COLOR 15,1,1 

210 VPOKE B192+1 8010111000 

220 LOCATE 17,20:PRINT 61492+1 

230 IF STICK(0)()0 THEN GOTO 230 
240 GOTO 180 


A linha 100 configura o VDP para SCREEN 1, apaga 
as teclas de função e define todas as variáveis como 
inteiras para tornar o programa mais rápido. 

As linhas de 110 a 158 colocam todos os 
caracteres na tela através do VPOKE para evitar 
problemas na impressão dos caracteres de controle (0 a 
81 e 127) através da Instrução PRINT. 

A linha 210 insere. num dos 32 bytes citados, um 
valor que define a cor de frente e a cor de fundo 
segundo o seguinte critério: os 4 bits da esquerda 
definem a cor de frente (no nosso exemplo 881011 = 11 
0) e 054 bits da direita a cor de fundo 
= B = vermelho). 

Se você quiser “vpokear” um número em decimal, 
basta calculá-io segundo a regras 


VALOR DECIMAL=(COR DE FRENTE)*16+(COR DE FUNDO) 


No nosso exemplo, o valor decimal serias 


11H16 + 8 = 194 
Experimente substituir esse valor na linha 218 e 
89 


) 


depois invente outras combinações de cores. 

A linha 190 permite alterar o endereço do VPOKE 
usando o recurso do “parênteses lógico”. 

Se a afirmação for verdadeira seu valor será -1,. 
se for falsa, será O. Dessa forma, pressionando as 
teclas de setas ( STICK(B) ), você pode alterar q 
valor de 1 e, portanto, o endereço do byte da VRAM à 
ser al ado. 

Assim. por melo desse progr você pode 
visualizar quais são os grupos de 8 caracteres que tim 
sua cor alterada em função do byte de atributo que 
você mudou. 

Se você. por exemplo, alterar os bytes 8197, B196 
é 8199 com 05 comandos 


VPOKEB197, 1B42UPOKEB49B, LB4VPOKEB199, 484 


* comandar LIST para um programa em BASIC na SCREEN 1 
verá uma listagem colorida s nos algarismos 
símbolos aritméticas. 

Note que a alteração no byt 
caractere “espaço vazio” colore tod 


que Inclui q 
la ao redor 
de 


at 


da tabela caracteres (pois ela está cheia 

espaços v. uma alteração no último dos 32 
bytes de cor (8233) altera a cor do 
cursor ( código 255). permitindo uma, 


visualização mais fácil do mesmo na hora de editar um 
prograr 

Apague as linhas de 180 a 240 com"DELETE 1680-240" 
e acrescente estas linhas ao programas 


160 FOR I=1 TO 32 

470 X=INTCRNDC-TIME)w14+1) 
474 Y=INTCRNDC-TIME)xi4+1) 
180 IF X=Y THEN GOTO 170 
190 UPOKE BÍPL+I,XKLG+Y 
200 NEXTI 


Desta forma você estará sorteando um número de 1 
a 15 para a cor de frente e fundo (a cor transparente 
foi eliminada) e verificando se elas são diferentes. 

Rode o programa várias vezes para ver seu efeito 
e observe como fica uma listagem na SCREEN 1, seu 
programa fica parecendo um ariequim bêbado! 


BIBLIOGRAFIA RECOMENDADA, 
Coleção de Programas para MSX V.2 - páginas 18 e 19. 
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2.R - USANDO 40 OU 64 COLUNAS NA SCREEN 2 


Normalmente a impressão de caracteres na SCREEN 2 
é semelhante à da SCREEN 1, em 32 colunas. Entretanto 
com um pequeno programa em Linguagem de Máquina 
pode-se fazer com que a impressão assemelhe-se à da 
SCREEN O, em 48 colunas. Com ligeiras alterações nessa 
mesma rotina. podemos fazê-la imprimir em 64 colunas 
É exatamente |5s0 que faz o programa listado a seguir 
Digite-o e. antes de mais nada, grave-o em disco Ou 
fita. Depois rode-o. 


100 SCREEN O : WIDTH 40 

110 CLEAR 200,8HE000 

120 FOR F=8HE000 TO &HEODL 

READ ÀS 2 POKE F,VAL(aHC+AS) 


NEXT F 

PRINT» +» z 

PRINT SPC “cr 4 3 40 coLunas 
PRINT SPC “E 2 1 64 COLUNAS” 
AS=INKEYS 


TF A$="4” THEN 230 

IF ASc)/2” THEN 180 

POKE &HEOAD, 4 

POKE &HEOCA, 255 

SCREEN O = NEW 

DATA FE, 03,00, 30, NE ,EC,FE OZ 
DATA C0,EB,46,23,5E ,23,56,04 
DATA 05,C8,1A,CD,19,E0,13,18 
DATA F7,F5,C5,D5,E5,FD,ES,ED 
DATA 4B,B7,FC,ED,5B,B9,FC,CD Et 
DATA 39,E0,ED,43,B7,FC,ED,59 
DATA B9,FC,FD,Eí,EL, Di Cí Fá 
DATA C9, CD, AB, 00,D0,20,07,FE 
DATA 09D,28,73,FE,20,D8,6F,26 
DATA 00,29,29,29,05,D5,ED,5B 
DATA 20,F9,19,11,40,FC,06,08 
DATA C5,D5,3A,1F,F9,CD,0C,00 
DATA FB,D4,C1,12,13,23,10,F0 
DATA D4,C1,9A,E9,F3,92,F2,F3 
DATA FD,21,40,FC,D5,26,06,CB 
DATA 7A,20,2h,CD,BF ,E0,38,28 
DATA C5,2E,06,FD,7E, 00,CB,78 
DATA 20,15,CD-CB,E0,38,15,CB 
DATA 7F ,28,0C,F5,D! 
DATA 04,CD,20,01,E 
DATA 03,2D,20,E2,C 
DATA 25,20,CC,D4,24, 
DATA 44,4D,CD.CB.E0,DO,01,00 


q 


470 DATA 00,21,08,00,19,EB,C9,E5 Estad 
480 DATA 21,BF,00,8B7,ED,52.Fí,C9 
490 DATA ES,21,EF,00,B7,ED,42,E4 fio] 
500 DATA C9,00,00,00,00,00,00,00 usa 


Com Isso, a rotina de impressão não standard já 
estará carregada na memória do micro e pronta para ser 
usada. 

Note que a impressão em 40 ou 64 colunas deve ser 
feita na SCREEN 2 usando-se a sintaxe: 


AS=USRO(“string a ser impressa”) 


O programa a seguir ilustra o uso da impressão em 
48 colunas. 


40 OPEN “GRPS? AS Há 

50 PRESET (0,20) 

60 PRINT Hi,“Teste de 32 colunas” 
70 GOTO 70 


10 SCREEN 2 

RO PRESET (0,40) 

30 AG=USRO(“Teste de 40 colunas”) 
LIT) 
EcIea 


A impressão normal. usando O PRINT |, continua a 
funcionar sem alterações, em 32 colunas. 

Observe também que quando se usa à opção de 64 
colunas os caracteres normais se sobrepõem. Isso pode 
ser evitado se você redefinir uma fonte de caracteres 
(veja à dica 2.8) apropriadamente e rodar o prograr 
seguir. 


100 DEFUSR=8HE000 
110 POKE &HF91F,2 
120 POKE &HF920, &H80 
130 POKE &HF921,&HBB 
140 SCREEN 2 

150 PRESET(O,10) 

160 AG=USR (“123456789 123456789 1234567088] 
9-123456789 123456789-123456789-1234”) 

470 LINE (0,18)-(255,18),45 
180 GOTO 186 


BIBLIOGRAFIA RECOMENDADA, 
Aprofundando-se no MSX - capítulo 4. 
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2.5 - CARIMBANDO SPRITES 8 x 8 NA SCREEN 2 


O recurso dos SPRITES é multo ÓtIl na 
apresentação visual dos programas. mas eles apresentam 
'gumas limitações, como por exemplo o fato de 5 
sprites não serem impressos pelo VDP se estiverem na 
mesma linha. 

A rotina apresentada a partir da linha 120 na 
Listagem abaixo imprime o SPRITE B x B cujo pad é 
definido pela variável SC% na coordenada dada pelas 
variáveis X e Y, O canal 61 para arquivos também deve 
estor livre para ser utilizado pela rotina. 


TRE DD 

'MCARIMBADOR 6x8 x 

'xBY THE DOCTOR LUZK 

IR DEDO 

10 SL=(INP(&HAB) AND&HCO) /64 

SCREEN 2,075C%=0 

30 SPRITESC(SC%)=CHR$(255)+STRINGS (6, CHR$I 

8810000001) )+CHR$(255) 

40 AS=INKEYS 

50 PUTSPRITE 10,(X,Y) 45,50% 

HR$(28) THEN X=X+1 

HR$(29) THEN X=X-1 

HR$(30) THEN Y= 

90 IF AS=CHR$(3L)THEN 

400 IF Ag="F/THEN SCREEN 

440 TF AS=" ” THEN GOSUB 130 

120 GOTO 40 

430 FORLX =0 TO 7 

RAS POKE aH0200+L%, VPEEK (BASE (14) +L7+8n5E 
D: 

150 NEXT 

160 POKE &HF94F,SL 

170 POKE &HF920,0 

180 POKE &HF924,8HCO 

190 OPEN “GRP:” AS 44 

200 PRESET (X,Y+1)2PRINTHA, “9” 

210 POKE &HF9ÍF,&HO 

220 POKE &HF920, &HBF 

230 POKE &HF921,&H1B 

240 CLOSE H1 

250 RETURN 


sw 
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A idéia desse carimbador de SPRITES é muito 
simples. À variável SC% ajuda à encontrar na VRAM q 
início da tabela de formação do SPRITE. que É 
transferido para a RAM a partir do endereço ÊHCOBO. 

Em seguida. muda-se o conteúdo da variável” do 
sistema CGPNT (em &HFSIF) para que ao mandarmos 
imprimir o caracter “6” na tela gráfica, não seja 
impressa a matriz de pontos da ROM, mas o padrão do 
SPRITE que foi transferido a partir do endereço 
shcoga 


ENE o dd 


oDo0o O 


BIBLIOGRAFIA RECOMENDADA. 


Aprofundando-se no MSX - capítulo 4. 
Programação Avançada em MSX - capítulo 2. 
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2.7 = CARIMBADOR DE SPRITES 16 x 16 NA SCREEN 2 


O princípio de funcionamento do programa a segui 
gomesmo que o do carimbador de SPRITES 8 x 8 
apresentado na dica anterior. Contudo. agora a 
transferência da VRAM para RAM é um pouco mai 
demorada, pois os SPRITES 16 x 16 são definidos por 32 


O ese 

TXCARIMBADOR Lóxió x 

'xBY THE DOCTOR LUZ* 
OS IOO RI 

SL=(INP(&HAB) AND&HCO) /64 

SCREEN 2,2:5Ch=1 
SPRITES(SC%) =CHR$ (255) +STRINGS( 14, CHI 
B(8B10000000)) +CHR$(255) +CHR$(255)+STRIN 
BSC14,CHR$C&BO0000001))+CHR$(255) 
BO AS=INKEYS 

PUTSPRITE 40,(X,Y), 15,50% 

IF Ab=CHR$C26) THEN X=X+1 

IF AG=CHR$(29)THEN X=X-1 

IF AG=CHR$(30)THEN Y=Y-1 

IF AG=CHRS(31)THEN Y=v+i 

IF A$=/F/THEN SCREEN O:END 

IF AS=" ” THEN GOSUB 170 


FORLZ =0 TO 34 
POKE &HC200+L%, VPEEK (BASE(14)+L%+32 nin 


NEXT 

POKE &HF91F,SL 

POKE &HF920,0 

POKE &HF924 ,&HCO 

OPEN “GRP:” AS 44 

PRESET (X, Y+1)2PRINTHA, “98” 
PRESET (X,Y+9)2PRINTHÍ,/AC” 
POKE &HF9ÍF,&HO 

POKE &HF920, &HBF 

280 POKE &HF921,8H1B 

290 CLOSE Há 

300 RETURN 


BIBLIOGRAFIA RECOMENDADA 


Aprofundando-se no MSX - capítulo 4. 
Programação Avançada em MSX - capítulo 2. 


2.U - ARMAZENANDO TELAS NA RAM 


O programa em BASIC listado a seguir gera na 
memória do micro, a partir do endereço AHEGOO. um 
rotina em Linguagem de Máquina que permite 
armazenamento da tela na RAM e sua posterior 
recuperação. de volta para a VRAM, 

A primeira parte do programa é a responsável pel 
geração da rotina de transferência. À segunda parte & 
um exemplo de como a rotina em L.M. deve ser us 

Observe a incrível velocidade com que a rotina de 
transferência consegue armazenar (e recuperar!) os 16 
Kbytes da VRAM III Em BASIC, essa mesma transferência. 
se fosse possível, certamente demoraria algo em torno 
de 100 vezes maisi 


100 FOR F=8HE000 TO &HEG3E Erom 
110 READ AS : POKE F,VALC"&HO+AS) vam 
120 NEXT F Ene] 
130 DEFUSRO=&HEG00 : DEFUSRi=8HEOL1 

140 DATA CD,22,E0,21,00,00,11,00 rita 
150 DATA 4 AE 


160 DATA 24, 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 
230 
240 FOR F=80 TO 4 STEP -10 
259 CIRCLE(1428,00),80,1 
260 — CIRCLE(128,80),80, 
270 NEXT F 

280 LINE (128,160)-(128,0) 

290 LINE (48,80)-(208,80) 

300 POKE O,USROCO) = * URAM para RAM 
310 SCREEN O : WIDTH 98 1 LOCATE 10,140 
320 PRINT “Digite RETURN!“EAS=INPUTS(1) 
330 SCREEN 2 

340 POKE O,USRI(O) 2 * RAM para VRAM 
350 GOTO 350 


+B0/F 
+ 7» F/BO 


BIBLIOGRAFIA RECOMENDADA: 


Aprotundando-se no M5X - capítulos O, 3 e 4 
Programação Avançada em MSX - capítulo 
Coleção de Programas para MSX v.1 - páginas 31 a 54 
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2.V - USANDO A VRAM PARA DADOS 


O vídeo do MSX é controlado por um circuito 
especial chamado VDP, que tem a sua disposição 16 
Kbytes de memúria chamada Vídeo-RAM (VRAM). 

O VOP pode usar a VRAM de quatro formas 
MRReA tos. correspondontos às SOREEN O, 1, Be 3 do 

Para cada SCREEN, a VRAM é dividida de forma 
diferente e sempre sobram algumas áreas não ocupadas. 
À seguir. apresentamos uma tabela onde relacionamos à 
área não usada da VRAM para cada SCREEN do MSX. 


ÁREA NÃO USADA 
969 até 2847 | 
4096 até 16383 | 


= 
2048 até 6143 | 
7040 até 8191 | 
B224 até 14395 | 

E 
7040 até 8191 | 


+) 
asas até EM2 | 
7840 até 14335 | 


s áreas livres da VRAM podem ser usadas 
para armazenamento de dados. 1550 pode ser feito tanto 
com rotinas em Linguagem de Máquina como com o comando 
VPOKE do BASIC. 

Vamos ilustrar de forma bem simples como se pode 
BRR para condes. Diana execute o programa a 
gui. 


40 SCREEN O = WIDTH 38 [25] 
AS="DADOS EXEMPLOS PARA A VRAM” [ES] 
UPOKE 4094,LENCAS) ERR 
Ext 
es 
ErEs 


FOR F=í TO LENCAS) 
50 — UPOKE 4096+F ,ASCCMIDSCAS,F,1)) 
60 NEXT F 


Com isso os dados da string A$ estarão na VRAM, 
Agora você pode comandar NEW, apagando o programa é as 


ZA 


variáveis da memória RAM normal do micro 
Para recuperar os dados que foram passados par 
VRAM, digite e rode o programa abaixo. 


10 SCREEN O : WIDTH 39 
29 XEVEEEK (4096) 


40 FOR F=1 TO X 

50 AS=AS+CHR$CUPEEK (4096+F)) 
60 NEXT F 

70 PRINT AS 


Com isso, Ag estará novamente com os dados que 
havíamos gravado na VRAM, 


BIBLIOGRAFIA REGOMENDI 


Aprofundando-se no MSX - páginas 105 e 186. 
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2.M - PESQUISADOR DE DESENHOS 


O programa apresentado adiante é um editor de 
caracteres para telas gráficas. Digite-o, confira-o & 
grave-o.Depois, rode o programa. 

Ao ser executado ele permite que o usuário 
culhe” a memória do micro à procura de um desenho 
tela gráfica. Os dois terços superiores da tela 
o usados para mostrar os desenhos dos caracteres da 
região da memória pesquisada tal qual eles apareceri 
figura da tela gráfica. O terço Inferior da tela é 
usado para mostrar um único caractere em destaque 
Esse caractere pode ser redesenhado e corresponde à 
ampliação das posições indicadas por um pequeno 
quadrado no centro da tela: 

Assim que o programa é carregado, as teclas de 
as permitem mover a região da memória pesquisada. 
pre-se que de SHO000 a SH7FFF existe ROM é à partir 
da 8H0000 existe RAM. As funções das teclas de setas 
tão resumidas abaixo. 


Po pesquisa um byte para a frente; 
SHIFT +» + pesquisa 8 bytes para frente 
(1 caractere); 
4 pesquisa um byte para tráz; 
SHIFT + «+ pesquisa 8 bytes para tróz 
(1 caractere 
a pesquisa 256 bytes para frente 
(1 Linha); 
SHIFT + à + pesquisa 2048 bytes para frente 
(1/3 de tela); 
+ pesquisa 256 bytes para tráz (1 linha); 
SHIFT + 7 + pesquisa 2048 bytes para tráz 
(1/3 de tela). 


Uma vez escolhida a região de memória a ser 
pesquisada, pode-se editar o caractere em destaque. 
Para isso deve-se digitar a tecla SELECT. Ela, permite 
à passagem do modo “seleção” para o modo “edição”. 
Pressionando SELECT a primeira vez um pequeno cursor 
surgirá no caractere em destaque na parte inferior da 
tela. Pode-se movê-lo com as teclas de setas. Para 
alterar um ponto, basta pressionar a barra de espaços: 
e ele estiver apagado. será aceso e. se estiver 
50, Será apagado. 

Com o caractere já editado, pode-se retornar do 
modo de edição digitando mais uma vi ecla SELECT. 
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Para sair do programa e retornar ao BASIC. 
estar fora do modo de edição e pressionar a 
espaços. 

Se, ao retornar ao BASIC, a tela ficar toda 
uma só cor. use um comando: 


basta 


color 45,4,4 


Isso deverá resolver o problema. 


100 CLEAR 200, &HDODO 

105 FOR FZ=8HD000 TO &HD32A 

110 READ AS : POKE FX, VAL(C&H/+AS) 
115 NEXT FX 

120 BSAVE“ACHADES BIN”, &HDO0O, &HD32A 
125 DEFUSRO=8HDO00 : END 

130 DATA JE,0F,32,EB,F3,CD,72,00 

135 DATA 3E,01,32,B0,FB,21,FA,DO 

140 DATA ED,5B,CF,F3,0: 
145 DATA 5C,00,21,0A,D! 
150 DATA F3,01,08,00,CI] 
155 DATA B3,D1,E5,CD, 0) 
160 DATA FB,D2,11,00,0! 
165 DATA CD,5C,00,06,0: 
170 DATA ZE, CB,47,20,0. 
175 DATA 29,7E CB, 7F 20, 0! 

180 DATA D2,29,10,FD,22,F8,D2,C3 
185 DATA 27,D0,CB,67,20,0C,2A,FB 
190 DATA D2,28,10,FD,22,FB,D2/C3 
195 DATA 27,D0,CB,77,20,0F 2A,FB 
200 DATA D2,11,00,014,19,10,FD,22 
205 DATA FB,D2,C3,27,D0,CB, 6F,20 
210 DATA 11,2A,FB,D2,AF,í 
215 DATA ED,52,10,F8,22,F! 
220 DATA 27,D0,21,E2,FB,7] 
225 DATA 20,01,09,28,7E,0 
230 DATA 3B,DO,CD,C0,00,21,11,03 
235 DATA 36,04,28,28,3A,E2,FB,07 
240 DATA 30,03,CD,DB,D2,07,2B,30 
245 DATA 03,CD,DB,D2,07,90, 23:00 
250 DATA E1,D2,07,23,90,03,CD, 
255 DATA D2,7E,FE,60,30,02 aê 60 
260 DATA FE,83,38,02,36,89,2B,7E 
265 DATA FE,8B,30,02,36,8B,FE,AE 
270 DATA 38,02,36,0E,01,08,00,ED 
275 DATA 5B,CD,F3,21,0A,D3,CD,5C 
280 DATA 00,CD,E7,D2,24,E2,FB,7E 
285 DATA OF ,DA,7E,Di,2A,FB,D2,01 
290 DATA 80,08,09,3A,0E,D3,FE,90 


RERCEREEEEGRERPESEECEREEREESRENAREREEE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA É 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


38,01,23,FE,95,98,01,23 
FE,9A,38,01,23,FE,9F,38 
01,23, FE,A4,38,01,23,FE 
AP,98,01,23,FE,AE,98,01 
23,FE,B3,38,01,29,06,00 
3A,0F,D3,FE,60,20,0: 
FB,18,36,FE,65,0 
F0,18,2E,FE,6A,2 
EB,18,26,FE,6F,2 
E0,18,14E,FE,74,2 
D8,18,16,FE,79,20,04,CB 
DO,18,0E,FE,7E,20,04,CB 
C8,18,06,FE,83,20,02,CB 
C0,7E,AB,77,26,FB,D2, 04 
80,06,09,CD,07,D2,21,E1 
FB;7E,CB,77,02,A5,D0,DD 
3,DD,36,00,8B ,DD 


0A, DI, CD, 
ca,3B,DO 
4B,3E,0F 


3E,84,32,B9,FC 
2A;FB,D2,01,80,08,09,E5 
7€ CD, C8,D2,CD, CD, D2 ES 
E5,7C,CD;CD,D2,E1,E5,7D 
CD, C6,D2,CD,CD,D2,Ei,ES 


9E;CF,CD,8D,00,E1,C9,01 
08,00,09,E5,AF ,ED,42,05 
7E,21,E9,F3,36,01,07,30 

21,87,FC,36,60 
21,84,00,41 28,26 ,2B,2B 
28,140,F9,22,89, EC, 08, 3E 
D3/CD,8D,00,08,21,E9,F3 
36/01/07,30,02,36,0F 121 
B7,FC,36,65,08,CD,8D,00 
08,21,E9,F3,36,01,07,90 
02,36,0F,21,B7, FC, 36, GA 
08,CD,80,00,08,21,E9,F3 
36,01,07,30,02,96,0F +21 
BZ; FC,36,6F,08,CD, BD, 00 
08,21,E9,F3,36,01,07,30 


02,36,0F,21,B7,FC,96,74 
08,CD,8D,00,08,21,E9,F3 
36,01,07,30,02,36,0F,21 


BOSCEESEREEEAEASEERERDE 


540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
s00 
+05 
sto 
615 
420 
sas 
430 
635 


B7,FC,36,79,08.CD,BD, EM 
08,21,E9,F3,36,01,0) 
02,36,0F,2 
08:00:80: 00.08.21 [ESTES 
36,01,07,30,02,36,0F,21 
B7,FC,36,83,08.CD. 80,00 
98,C1,E1,0D,C2,0B,D2,C9 
9F,0F OF ,0F ,C9,E6,0F ,Có 
30,FE,3A,38,02,C6,07,CD 
8D,00,09,95,35,95,35,35 
C9,34,94,34,34,94,C9,D9 
21,29,D3,46,05,06,00,C5 
C1,10,FC,Cí,10,Fó,D9,C9 
00,80,FF,FF,C3,C3,C3,C3 
FF,FF,FB,88,88,88,F8,00 
00,00,3F ,80,00,06,8B,60 
91,00,28,34,3 


SASS— quanamaa 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX — capítulo 4. 


Programação Avançada em MSX - capítulo 2. 


se 


2.X - IMAGENS INSTANTÂNEAS 


Muitas vezes a produção de uma tela por um 
programa em BASIC é demorada demais. principalmente se 
estamos trabalhando com a SCREEN 2. 

Podemos fazer com que a imagem não seja mostrada 
durante a confecção do desenho. mas somente após ele 
estar pronto. 

Uma forma bem simples de conseguir isso é usando 
o comando GOLOR como exemplificamos a seguir. 


100 COLOR 0,9,9 1 SCREEN 2 

- tela exemplo —— 
126 FOR TO 425 STEP 10 
130  0=80-Fx80/125] 
140 LINE (F,80)-(125,6) 
150 LINE (125,6)-(250-F, 80) 
160 LINE (F,80)-(125,160-6) 
470 LINE (125,160-6)-(250-F 
480 NEXT F 
190 COLOR ,.1 
200 BEEP 1 GOTO 200 


+80) 


Na linha 100 fazemos com q 
fundo é borda da 
impossibilitando a visão do q 
tela, A linha 190 só é execut: 
terminado e coloca as cores na tela 
Dessa forma, não vemos o desenho ser feito. 
Experimente executar o programa novamente 
iminando o comando COLOR da linha 180. Você verá o 
desenho sendo elaborado na tela. 
Uma outra forma de conseguir o mesmo efeito é 
usando as rotinas do BIOS DISSCR (8H41) e ENASCR 
(H44) como no programa a seguir. 


40 DEFUSRO=8H41 : DEFUSRi=8H44 Em 
Es Ene Co unas. EXE 
O FOR F= E) [ET] 
EDS 
Era 
na 


nO PRINT “XXXXXXXXXXXXXXXXXXXAXXKXX 
50 NEXT F 

do POKE O,USRÍ(O) 

BIBLIOGRAFIA RECOMENDADA 


Aprofundando-se no MSX - página 147. 
Coleção de Programas para M5X v.2 - páginas 42 e 68. 


sa 


2.Y = IMPRESSOR EM TAMANHO DUPLO NA SCREEN 2 


Aqui vai um programinha em linguagem de máqui 


que permite ao seu programa em BASIC imprimir qualquer 
mi amanho dobrado, na SCREEN 2. A gr 
uti sé a de ncher a lacuna existi 


entre 
impi 
tiranossáuricas. 

A utilização do programa é simples; após car 
a rotina em L.M. na memória, basta chamá pe 
função USR(" texto”) ou USR (varg), O posicionamento ni 
tela é feito pelo comando PSET, PRESET ou outro 
comando gráfico. e as cores de frente e fundo são 
dadas pelo comando COLOR. 


1000 DATA 3A,63,F6,FE,03,C0,21,F8 
1010 DATA F7,7E,23,66,6F ,7E,32,E0 
1020 DATA DO,23,7E,32,E1,D0,23,7E 
1090 DATA 32,E2,D0,3A,B5,FC,32,DE 
1040 DATA DO,06,08,C5,CD,2B,DO,C1 
1050 DATA 10,F9,C9,0E,02,3A,E0,DO 
1060 DATA 32,E3,D0,C5,94,B3,FC,32 
1070 DATA DD,DO,2A,E1,DO,7E,E5,26 
1080 DATA 00,6F,29,29,29,14,BF,íB 
1090 DATA 19,3E,08,90,05,4F,06,00 
1100 DATA 09,7E,06,06,17,CD,óF,DO 
1110 DATA 10,FA,C1,E1,29,96,E3,D0 
1120 DATA 

1130 DATA 
1140 DATA 
1150 DATA 
1160 DATA 34,CD,8B,DO,21,DD,DO,34 
1170 DATA Cí, F4,C9,3A,DE,DO,4F ,E6 
1180 DATA 07,6F,79,CB,3F,C 
1190 DATA 3F,67,3A,DD,DO,E 
1200 DATA 00,4F,09,3A,DD, Di 
1210 DATA 47,3E,08,90,47, AF, 97,47 
1220 DATA 40,FD,47,3A,DF.DO,A7,28 iaga 
1290 DATA 06, CD,4A,00,B0,18,07,78 AS 
1240 DATA 2F,47,CD,4A,00,A0,CD,4D 
1250 DATA 00,30,E9,F3,87,87,87,87 
1260 DATA 47,3A,EA,F3,B0,01,00,20 TAZ 
4270 DATA 09, CD, 4D,00,C9,FA,6A,00 F 
1280 DATA 14,11,00,00,FIM 
1290 CLS:FOR I=8HDO0OO TO &HDOEIZREAD AGE; 
POKE I,VAL(“&H+AS) NEXT IZEND 


3, já que na prim 


REPESREREEEEESSEADA 


Ba 


O próximo programa é um exemplo de utilização da 
rotinas 
10 SCREEN 2 nom 
20 PRESET (10,80) :COLOR 11,4 Eur 
30 DEFUSR=8HDÓ00 dis 
49 ASCUSR (CMI ton Maldonado ur.”) [Sr] 
50 COLOR 15,14, FERA 
60 GOTO 60 [a 


Dica especial: para mudar a altura das letras. 
use POKE &HDB2C.n com n variando de 1 a 8. Que 
acontece quando n vale 07 


EDITORA ALEPH 
ALEPH 
ALEPH 
ALEPH 
ALEPH 


EDITORA ALEPH 
EDITORA ALEPH - 
EDITORA ALEPH - 
EDITORA ALEPH 


RhRbhnanoR 
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gerai 
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DIGAS SINIHAS 


Neste capítulo abordamos vários recursos sonoros 
disponíveis nos micros MSX. 


Além dos métodos normais, usando o PLAY e 0. 
SOUND, comentam 


31 
a.2 
3.3 
3.4 
3.5 
3.8 
3.7 
3.8 
EM 
3a 
3.8 


de 


alguns métodos nã! 


standard de 


sons. 


Produzindo sons com ecos 
Percussão com o PLAY 
PLAY com SOUND 
Percussão com o 
lado piano . 
Editor de sons 
Músicas com prog 
Música aleatória 
Partitura sonora 
Despertador 

Digitalizador 


3.1 = PRODUZINDO SONS GOM ECOS 


A produção de sons com ecos nos micros MSX é 
extremamente simples através do comando PLAY, Para 
[sso basta gerar um mesmo som nos três canais, porém 
com um pequeno atraso um em relação aos outros. 

Veja o programa a seguir. 


10 PLAY “song” [5] 
20 PLAY “CH32”,“RBCHI32”,"RiGCHIA” = 


Ele gera um som com eco. 
Uma outra forma é usar um envelope periódico. Por 
exemplo, digite e rode o programinha listado a seguir. 


PLAY: T24050N 10007 
PLAYCOPCEGARHADE” Em 
PLAYCORCEGAA+AGE” cm 
PLAYCFAOICDD+DCOZA” 
PLAYCORCEGAA+AGEM Elida 
tara 
Had 


PLAY“O2DEFF+OFED” 
BOTO 20 


Agora altere a linha 10. deixando-a como 
mostramos abaixo, e execute o programa novamente. 


10 PLAY“ TE40SBML ADO” 


BIBLIOGRAFIA RECOMENDADA: 

Linguagem Basic MSX - páginas 119 a 121. 
Gurso de Basic MSX v.1 - aula 8. 
Aprofundando-se no MSX - capítulo 5. 


87 


a.2 - PERCUSSÃO COM PLAY 

A versatilidade do comando PLAY permite 
facil Iment ração de sons de percussão. Veja à 
exemplo a seguir, 


10 PLAY “TIZOSOMPOOALANAO6L LGANAAAS” cm 
7 


20 GOTO 4: 


Note que usamos o envelope O com um período de 
modulação muito curto. Experimente agora substituir 
Ti28 por T148 e MIB por M200. 


BIBLIOGRAFIA RECOMENDADA, 

Linguagem Basic MSX - páginas 119 a 121. 
Curso de Basic MSX v.1 - aula B. 
Aprofundando-se no MSX - capítulo 5. 


3.3 - PLAY COM SOUND 


Uma outra forma de gerar sons de percussão com o 
comando PLAY é selecionando ruído para um ou mais 
canais através de um comando SOUND. 

Experimente rodar o seguinte programa. 


C6="0250M1500LBTI34CCMIS00CMI500CCCM IDEM 
CM1500C 
SOUND 6,32 
FOR I=í TO 2 

SOUND 7,28 

PLAY “00,5 
NEXT 
C5="50M10000CL . 
PLAVºO, 2,04 


Altere o valor do registro 6 (sempre entre 1 e 
92) e tembém a duração das notas e o tempo de 
execução. Você verá que pode produzir os sons mai 
variados. Um último recurso é mudar o formato da 
envoltória. Experimente alterá-io, por exemplo, para 
813, Agora. 0 invés de uma “bateria”, você deverá 
obter um "chocalho”. 


BIBLIOGRAFIA RECOMENDADA: 


Linguagem Basic M5X - páginas 119 a 121 e 144 a 158. 
Curso de Basic MSX v.1 - aula B. 
Aprofundando-se no MSX - capítulo 5. 


3.4 - PERCUSSÃO COM O CLICK DO TECLADO 


Uma terceira e última forma de produzir sons de 
percussão no MSX é usando o click do teclado. 
execute o programa a seguir. 


Digite e 
10 KEY(1)ONSKEY(2)0N 
20 ON KEY GOSUB 70,80 om 
30 Xk=4 [7] 
ao OUT 470,127 = 
59 OUT 170,255 

Elneig 

E] 

em 


60 FOR Fui TO XZENEXT FLIGOTO 40 
70 Xk=X%+4 5 RETURN 
Bo 1 AND XZ)0 3 RETURN 


Use as teclas Fi e Fe para perceber O 
funcionamento do programa. 

Esse recurso é usado de forma magistral no 
conhecido “joguinho” PITFALL. Além de música nos três 
canais ele usa 0 click do teclado para fazer a 
percussão. 


BIBLIOGRAFIA RECOMENDADA: 


Coleção de Programas para MSX v.2 - página 15. 
Aprofundando-se no MSX - página 87. 


se 


9.5 - TECLADO PIANO 


Existe uma maneira rápida e não muito sofisticada 
de se transformar um trecho do teclado de seu MSX num 
teclado musical. 

No exemplo listado a seguir, as duas filas 
inferiores de teclas do M5X serão utilizadas. 


BEDDBEDEDODE 
BDBDEBBDDO 


Estas teclas correspondem ao Expert 1.1. No 
Hotbit haverá uma pequena modificação que será 
comentada adiante. 

Vemos atribuir a cada uma das letras (ou 
símbolos) dessas duas filas o papel de uma tecla 
branca ou preta, conforme o esquema à seguirr 


Para isto basta digitar o programa listado 
adiante. 

10 SCREENOZWIDTH39:KEY OFF:POKE&HFCAB,4 ES 
20 DIM N(255) :PLAY“SOM2O0OLB” E] 
30 FOR 1=0 TO 18 UE] 
40 READ DSID=ASCCDS)ENCD)=1+41 7] 
50 NEXT 1 ia 
60 DATA Z,8,X,D.0,V,6,B,H No JM,” Lo a RE 
Crvo/.% 


70 AG=INPUTS(1)FA=ASCCAS) ENS="Nº+STRS CNC RSI 
A) 

Bo PRINT AS,:PRINT NSZPLAY N$ 
90 GOTO 70 
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Os que tiverem um Hotbit devem alterar a linha G0 
parar 


60 DATA Z,8,X,D,C,V,6,B;H; No JrMs sl sLour 
dida á 

Nesta linha são definidas as teclas que fazem, am 
sequência. o papel das teclas de um plano. Você pode 
altorar esta linha para usar outro trecho do tecl 
do MSX. Lembre-se, porém. de ajustar o valor final de 
Ino laço que val de 30 à 50, 

Na linha 48 o comando N(D)=1+36 ajusta a escala 
musical de maneira a fazer a primeira tecla (no nosso 
caso o 2) tocar o Dó central (N36), 

Você também pode ajustar este valor de maneira a 
pegar outros trechos da escala musical em seu teclado. 

Se você quiser alterar o timbre do sou “plano”, 
Linha 26. 
final. sugerimos alguns acréscimos 
76 e 68 de maneira a ficarem assim, 


40 SCREENOZWIDTHI9:KEY OFF :POKEGHECAB, 4 ER 

20 DIM N(255) PLAY“ S0M2000LB”, “S0M2000L HERMS 

” "SQM2000LB” 

30 FOR I=0 TO 48 

40 READ DS:D=ASC(DS)ENCD)=I+36 

50 NEXT 1 

go DATA 2,8,X,D,C,V,6,B,Hy No JM, o, RA 
15/08 

70 AS=INPUTSC1) EASASCCAS) ENS=“NZ+STRS CN (RM 

ADD ENAS="Nº+STRSCNCA)+4) ENDS=" NºS STRSCNC 

A+) 

80 PRINT A$,:PRINT N$:IF NCA)=0 THEN GOTENES 

O 70 ELSE PLAY NS, NAS, NES 

90 GOTO 70 Kinas 


RCA E 
Vinha SBtLimênte. ainda, alterar o comando SCREEN na 
inha 10 para: GoREENO,,O 


Você deve estar curioso para saber como foram 
as figuras que Ilustram o começo desta dica, 
r isto, basta digitar este complemento do 


programa 


OPEN“GRPICAS W4 

COLOR 4,15, 15:SCREEN 2 

1020 T$="C1S4R10E2D1AH2L 1OG2U14F2D40G2R4 
AH2UL0E2L 44” 


se 


1030 FOR I= 4 TO 42 
READ AS 
PRESET(20%1, 100) :DRAW TS 
PRESET(204143,402)!PRINTHS,AS 

1070 NEXT I 

1080 DATA A,5,D,F,G,H, JKyLr Cr 4% 

1090 FOR I= 4 TO is 

1100 READ AS 7 

4140 PRESET(2041+10,149):DRAW TS 

4120 PRESET(2041+13,121):PRINTHS,AS 

4430 NEXT I 

1140 DATA Z.X,CoU,BiNgM, 040, nr 577 

1150 Tis="CiLSOUABRIUASL 1D35R9” 

4140 T25="CIL20U4ABBULBUIO” 

4170 FOR 1=0 TO 1í 

1180 PRESET (45+20x1,162)21IF I=0 OR 1=3 
OR 1=7 OR 1=10 THEN DRAW T2% ELSE DRAW T 
4SIPAINT(25+2041,90),4,4 

1490 NEXT I 

1200 RETURN 


Além disso você deve alterar as linhas 18 e B8 do 
programa original parar 


10 POKE GHFCAB, £ 
BO IF N(A)=0 THEN GOTO 70 ELSE PLAY N$,N 
AS, NBS 


* acrescentar a linha 68, 
48 GOSUB 1000 


Obviamente, quem tiver um Hotbit deve fazer as 
correspondentes alterações nas linhas 1080 e 1148. 

Se você ainda quiser dar uma última sofisticada 
em seu programa, acrescente-lha as linhas a seguir: 


25 GOSUB 3000 
80 IF N(A)=0 THEN GOTO 70 ELSE PLAY N$,N 
PS NBSIPUT SPRITE O, (24+104XCP),139-194Y 
1015 FOR S=1 TO 8 

1016 IF S=8 THEN S$=SS+CHR$(127) ELSE S$ 
=SS+CHRS(65) 


9a 


1047 NEXT S 

1018 SPRITESC1)=5$ 
3000 DIM XC19),Y(49) | 
30410 X(0)=1 

3020 FOR P=9 TO 48 

3030 R=PHODi2 

3040 XCP41)=XCP)+12IF R=4 OR R=14 THEN X 
(Pri)=kcpo+a 

3050 IFX(P)HOD2=4 THEN Y(P)=4 ELSE y(P)= 


3070 NEXTP 
3080 RETURN 


BIBLIOGRAFIA RECOMENDADA; 


Curso de Basic MSX v.1 - aula B. 
Linguagem Basic MSX - páginas 118 a 121 
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3.6 - EDITOR DE SONS 


O programa a seguir é grande utilidade n 
procura de valores corretos para serem usados com o 
comando SOUND, 

Ao ser executado, ele apresenta uma tabela com os 
números dos registros do PSG à esquerda, Para 
selecionar um dado registro deve-se usar a tecla d 
eta para cima. O número do registro selecionado 
aparecerá na parte Inferior da tela, logo abaixo d 
tabela, Para alterar seu valor deve-se usar as tecla 
de seta para a esquerda e seta para, girei 0 
registro 7 (de mixagem) é alterado de forma dif 


Inicialmente deve ser selecionado com a tecla d 
para cima; depois davi pressionar barra 
spaços; a seguir, basta pressionar B teclas, Q ou 


para programar em binário o registro; após 
inserido os valores 06 1 nos bits do registro 
pode-se pressionar RETURN para voltar ao modo 
seleção normal do programa. 

É recomendável que se conheça o funcionamento dos 
registros do PSG para programá-los conscientemente 


10 OOo ee ee see 
20 !x BY THE DOCTOR LUZ x 
DO OO OO E DO 
AO FOR L=8HC000 TO &HCL45 
50 READ ASEPOKE L, VAL (8H +AS) 
60 NEXT Z 
70 DEF USR=8HCO0O 
so PRINT/RODAR PROGRAMA 2 

O AG=INPUTSCI) 
100 TF A9=/6" THEN A=USRCO) ELSE END 
1000 DATA CD,C3,00,21,30,C1,11,00 
1010 DATA 00,01,0A,00,CD,5C,00,3E 
1920 DATA 07,1E,38,CD,93,00,3E,08 
1030 DATA 1E,0F,CD,93,00,3E,09,CD 
1040 DATA 93,00,3E,08,CD,93,00,26 
1050 DATA 01,2E,02,CD,C6,00,CD,76 
1960 DATA CO, CD,9F,00,FE,5A,CB,FE 
4970 DATA 1C,28,0F,FE,1D,28,21,FE 
1080 DATA 1E,28,65,FE,20,CA,CB,CO 
1090 DATA 18,DD,DD,21,1B,C1,3A,2A 
1100 DATA C1,16,00,5F,DD,19,DD,7E 
1110 DATA 00,06,01,DD,77,00,18,C7 
1120 DATA DD,21,1B,C1,3A,2A, Cí, 16 
1130 DATA 00,5F,DD,19,DD,7E,00,Dó 
1140 DATA 01,DD,77,00,18,B1,34,2B 


& 


1150 DATA C4,DD,21,4B,C1,DD,77,07 
1160 DATA 06,0F,0E,00,59,CD,Fó,C0 
1170 DATA 3E,20,CD,A2,00,DD,7E,00 
1180 DATA 5F,79,DD,29,0C,CD,93,00 
1190 DATA CD,Fó,C0,3E,0A,CD,AZ,00 
1200 DATA 3E,0D,CD,A2,00,10,DD,C9 
1210 DATA 3E,0A,CD,A2,00,3E,0D,CD 
1220 DATA A2,00,3A,2A,C4,3C,FE,0E 
1230 DATA D4,C5,C0,32,2A,Cí,SF,CD 
1240 DATA Fó,C0,C3,27,00,9E,00,69 
1250 DATA 21,09,09,CD,C6,00,9E,4D 
1260 DATA CD,A2,00,3E,49,CD,A2,00 
1270 DATA 3E,58,CD,A2,00,06,08,CD 
1280 DATA 9F,00,CD,A2,00,CB,22,FE 
1290 DATA 30,28,02,CB,C2,10,F0,7A 
1300 DATA 32,28,C1,C3,27,C0,7B,CB 
1310 DATA 3F,CB,3F,CB,3F,CB,9F,24 
1320 DATA 2C,C1,D5,5F,16,00,19,7E 
1990 DATA CD,A2,00,D1,21,2C,C1,76 
1340 DATA E6,0F,5F,16,00,19,7E,CD 
1350 DATA A2,00,C9,3D,C1,49,CL,FA 
1360 DATA 29,C1,00,0F,0F,0F, 00,00 
1370 DATA 00,00,00,00,30,31,32,33 
1380 DATA 34,95,96,97,38,99,41,42 
1390 DATA 43,44,45,46,52,45,47,2E 
1490 DATA 20,56,41,4C,4F,52 


BIBLIOGRAFIA RECOMENDADA, 


Linguage 


Basic MSX - páginas 144 a 158. 


Aprofundando-se no MSX - capítulo 5. 


Linguagem de Máquina MSX - páginas i44 a 148. 


3.7 - MÓSICAS COM PROGRAMAS 


O programa aba 
multiprocessamento d 
as tarefas de processamento normais de um micr 


ilustra um típico o de 
máquinas MSX. Enquanto executa 
0 MSX 


pode. simult executar músicas. Apenas à 
título usamos um processamento bem 
simp siste apenas em mostrar na região 
central guns números, 


cada 1/54 segundos o processamento 
normal é interrompido para o gerador de sons possa 
ramado. Enquanto o gerador de sons executa a 
ção. o processamento normal continua. 


100 SCREEN O, O:WIDTH I91KEY OFF = 
140 INTERVAL ON E DEFINT F,6 ceia 
120 DIM P$(34),05(34) tem 
130 GOSUB 250:K=1 E] 
140 P$(1)="t20050m7000” Etizi 
o] 
E] 
Es 
ES 


Note q 


150 Q5(1)="t20050m7000” 

160 PLAY PS(1),05C1) 

170 ON INTERVAL=54 GOSUB 620 
180 FOR F=1 TO 1000 

190 LOCATE 8,10,0 

200 PRINT USING/HANHHHHC:FO2 
210 FOR G=1 TO 400 : NEXT 6 


K 


220 NEXT F [rr] 
230 GOTO 180 Masi 
240 * [| 
250 PS(2)="r 403" :06(2)="r 409” 

dão Pala) =rnAGacadA T08 (3) Pr AL6 40 4cea "iam 
270 PS(4)="e4.f0c4”205(4)="03404cea” Ed 
280 PS(5)="d209b4"205(5)="03gbo4dg” [E] 
290 P5(6)="94.aBb4”:a5(6)="03gbo4dg” Ema 
300 P5(7)="04C203a4”:05(7)="03aoácea” Raid 
310 P$(B)="a4 gHBa4”:05(8)="dfaosd” T 
a20 P5(9)="b29H47208(9)="04egHbosd” E 
340 P$(10)=“e2n4"108(10)=“04egHbosd” [a 7H 
350 P$(11)="04c2d4”:0%(11)="03aodcea” EM 
360 P$(12)="e4. FBe4":08(12)="03a04cea” EE 
370 P$(13)="d203b4”208(13)="03gboddg” mm 
380 P5(14)="94.aBb4":08(14)="039boadg” 

390 P$(15)="04c4, pass as Tas Soda ac ei 


AGO PHC16)="9H4. FHBgHA”:Q5(16)="04e9HboSBiia 


440 P$(47)="a2.:06(17)="03a04cea” mona 
420 P$(18)="a2r4":08(18)="0Jaodcea” ema 
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560 P5(I0)=""94 
570 P$(31)="04c 


580 PS(32)="9H4. HOgHA" :05(32)="egHb” 
590 P$ =“a? .a2R4":05(33)="03a04ceoda? EMA 


600 RETURN 


8b4”7:05(30)=039bo4d” 
«03b8a4":05(31)="03a04ce 


430 

440 P$(19)="0492 $(19)=1404ceg”” 

450 P$(20)="94. FBe4":05(20)=“ceg” 

460 P&(D1)="dooabA”:05(21)="03gboad” ] 

470 PS(22)="94.aBba”:05(22) 

480 P$(23)="04c2o as” ias(23 

490 PS(24)=/a4.9HBa4”206(24)="03ag4ce” 

500 P$(25)="b29H47:05(25)="eggb” 

Bio R5(26)="e2.“s05(26)=“egHb” 

530 P$(27)="0492."2:08(27)="04CEG” 

540 PS(26)="94. fBCA” :Q6(28)="ceg” [E 

550 P$(29)="d209b4”:08(29)="03gboad” E 
Eemg 


620 K=k+4 
630 IF K=34 THEN K=2 
640 PLAY PSCK) QHCK) 
650 RETURN 


BIBLIOGRAFIA RECOMENDADA É 
Linguagem Basic MSX - páginas 108, 178 e 179. 
se 


3.8 - MÓSICA ALEATÓRIA 


Se você ti curiosidade em saber como será a 
música do ano 3000, basta mandar seu MSX soltar a 
imaginação. 


Digite o programa a seguir e ouça seu MSX 
*compondo”. Quando você não aguentar mais, digite 
CONTROL + STOP. 

Se você, porém, tiver paciência e curiosidade, 


ouça atentamente e verifique que há um certo padrão e 
pimas passosens geniais. Afinal a gera dos 
números aleatórios que estão sob a músi pelo 


micro segundo uma rígida regra matemáti 


400 PLAY “SOMBO0O” ,"SOMBOGO”,“SOMBODO” bia 
“L”+STR$CINTCRNDC-TIME)x34)x2+2) BRO 


110 
120 G+/N/+STRSCINTCRND(-TIME) X40)) 
130 5+Nº+5TR$CINTCRND(=TIME) x30+50 HA 


) 
(40 Z$=L5+N“+STR$CINTCRNDC-TIME) 4 6+80 EB 


150 PLAY X5,Y5,2% Essa 
160 GOTO 110 Emma 


A composição do exemplo intitula-se "A ORDEM DO 
CAOS” e o andamento é “ALLEGRO VIVACE CON UN PÍZZICO 
. Sé você quiser alterar as regras mude à 
(tentando outros envelopes) e as linhas 120 
mudando a distribuição das noti Lembre-se, 
s$, roumento do N no P não pode 


indo o famoso exemplo do físico JAMES JEANS 
(2 macacos imortais acorrentados a um plano por toda a 
o tocando uma sonata BEETHOVEN 
fique esperando a obra prima do sei 


EE) 


3.8 - PARTITURA SONORA 


Excetuando-se alguns raros privilegiados que têm 
o chamado “ouvido absoluto”, a maioria das pessoas tem 
uma certa dificuldade em identificar uma nota musical 
tocada individualment 

Associar o som da nota a uma tecla do piano ou à 
ma posição na partitura musical se torna ainda mais) 
difícil. 

Para treinar seu ouvido e sua leitura de) 
partitura. digite o programa a seguir. Para fazer a 
nota “subir” ou “descer” pela escala musical basta 
usar as teclas de seta para cima e seta para baixo. 
Uma vez escolhida a nota. basta apertar a barra de 
espaços para ouvir seu som, 


100 Dr Em 
110 Fr a 
120 ar 

ião 

150 [Do] 
160 PRESET(34,470) [E] 
170 PRINTHA “OITAVA NOTA CIFRA! | 
180 FOR C=0 TO 4 sam 
190 FOR L=63+48XC TO 95+48%C STEP 8 [5621] 
200 LINECO,L)-(255,L) 
240 NEXTL, É (| 
220 FOR I=á TO 26 nesta 
230 D=2340k1 rc] 
240 PRESETC(D, 152-4M1)2PRINTHA, CHR$C1D4 BRA 

CHR$(73) 

250 LINE(D,5)-(Dt6,21),,8 Estud 
260 IF IMOD7=2 OR IMOD7=6 THEN 200 draaa 
270 LINE(D-9,5)-(D+1,45), BF 
280 NEXT 1 
290 LINE(O, 104/0638, 151)ELINECA26 103) tshéd 


(194, 109)1LINE(2Õ2, 55) (297,55 
300 DiG="C15SI2LHUERM+O, +iM+i, + 2M- À, 2n-laam 
2, +4M-2, -SH2li2M+4, -2EAUOHDA 66H” 
310 PRESETC14,B6) DRAW DIS 
320 PRESET(14,87):DRAW DIS 
330 D2$="C15! SÍ2LHUERM+2, +íM+s, +2M-4, + 9620008 


340 PRESET(14,120):DRAU D2s Etid 
350 PRESET(14,121):DRAW D2G:PSET(27, 445) 
PSET(27,123) 


100 


360 FOR T=í TO B5C5=C5+CHRS(PEEK (7; 
)ED$=DS+CHRS (PEEK (7206+7T)) ENEXT 
$(1)=CGESPRITESC(2)=DS 

370 LAY“50M7000” 

380 TICK (O) 

390 +(A=S)-(A=Í)EX=29+0%IEY 
400 IF I(í THEN I=í 

MO IF 1)26 THEN 1=26 

ADO O=(1+45)N72W=(1+15)MOD7+4 
430 IF A=0 THEN 460 

440 LINE (40,180)-(240,190), 
RS PRESET(4Í,481):PRINTHS,O 
) 

460 PUT SPRITE 3,(X,Y=1),,1 
470 PUT SPRITE 4,(X,22),,2 
480 N=12%(1N7)+144+24CIMOD7)+CIMOD7)1)+CI 
M0D7)5) 

AS=“N“ASTRSCN) 

IF STRIB(O) THEN GOSUB 520 

Goro 380 

PLAY AS 

IF STRIG(O) THEN 530 

RETURN 


RREO 


e 


22+7 RE 
PRITE 


=152-4%1 


“GPSC 


BIBLIOGRAFIA RECOMENDADA, 


Linguagem Basic MSX - páginas 119 a 121. 
Gurso de Basic MSX v.1 - aula 8. 
Aprofundando-se no MSX - capítulo 5. 
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3.A - DESPERTADOR 


despertador, digite o programa a seguir e rode-g,. 
Forneça a hora, minuto e segundo do momento de 
despertar e depois atualize o horário. ho digitar q 
valor do SEGUNDO ATUAL digite um número um pouco maior. 
e fique esperando até seu relógio de pulso indic; 
mesmo número. Nesse Instante pressione RETURN. 


Se você quiser usar seu MSX como Fe 


100 SCREEN 1:D=0:KEY OFF 

110 INPUTHORA DO DESPERTAR! HD 
120 INPUT/MINUTO DO DESPERTAR”;MD 
130 INPUT/SEGUNDO DO DESPERTAR”; SD 
140 INPUT/HORA ATUAL m2HO 
£50 INPUT/MINUTO ATUAL “MO 

160 INPUT“SEGUNDO ATUAL “;80 

TIME=O 
CLSELOCATE 3,40,02PRINT"DESPERTADOR 


PRINT USING “hWSHHSHN/;HD;MD;SD 
LOCATE 3, 422PRINT” HORA CERTA 


T=TIMENSO:51=(S0+TIMOD 60 
H=(504TINGOZMI=(MOIM) MOD 40 
H=(MeMO)N6OZHL=(HOHH) MOD 24 
PRINT USING “HHZHHSHHO:HA;MA 964 re 
D=CHÁ=HD)+CMI=MD)+CSL=5D) 

IF D=-3 THEN PLAY “ULSN4ONMO” 
IF STRIGCO) THEN D=0 

Boro 200 


Não esqueça de deixar o volume do micro ou da TV 
no máximo e siga o seguinte procedimento, vá dormir 


do tocar o alarme, acorde! Levante rasti 
aproxime-se do micro. Pressione b de 
para acabar com o maldito barulho e não volte 


a 
cama! Se quiser um barulho mais irritante altera 
PLAY da linha 268. Se chegar atrasado no serviço. leve 
a listagem do programa para seu chefe tentem 
descobrir, juntos, onde você errou na digitação 


BIBLIOGRAFIA RECOMENDADA 
LINGUAGEM BASIC MSX - página 166. 
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3.8 - DIGITALIZADOR DE VOZ 


Com este programa você pode digitalizar qualquer 
som e depois reproduzí-lo através do canal de áudio do 
micro. é muito útil em entradas de programas, que 
podem ser o trecho de uma música ou mesmo sua própria 
voz. 

A entrada do som é feita pelo cabo de entrada 
(EAR) do cassete, e o som reproduzido sal pelo canal 
de áudio. Se o seu micro é um Expert. o som sairá pelo 
alto-falante Interno. No Hot-Bit este sairá pela 
televisão. 

A duração do som gravado é determinada pelos 
endereços AHCOO7 o BHCO3S. Os valores destes dois 
bytes devem ser Iguais é compreendidos entre 0 6 170. 
8 a maior duração é obtida com o valor O, Para mudar à 
duração. basta dar POKES nestes endereços com os 
valores acima especificados. 

Você pode salvar uma informação digitalizada em 
disco ou fita com o comandos 


BSAVE “NOME”, ST, &HBOOO 


onde 
ST=2567PEEK(SHC007) 
Naturalmente se o valor dado a 8HC007 for menor 


que 128 o BSAVE não terá o efeito desejado. pois este 
salvará uma parte da ROM em vez de salvar a RAM abaixo 


1000 REM - 
1010 REM Digitalizador de Voz 
14020 REM By The Pilot 1988 
1030 REM -: 
1040 DATA F3,3E, AA, DI, AB 
1050 DATA 11,00,B0, AF 06 
1060 DATA AZ,E6,80,BL,CB, JF ,00,00 
1970 DATA 00,00,00,00,00,00,10,EE 
1080 DATA 77,23,E5,ED,52,E4,90,E3 
1090 DATA 3E,AO,D3,AB,FB,C9,F3,9E 
1100 DATA AA,D3,A8,21,00,80,41,00 
1110 DATA BO,7E,06,08,4F,1F,1F,DI 
1120 DATA AA,79,CB,3F ,00,00,00,00 
1130 DATA 00,00,00,00,10,EE,23,E5 
1140 DATA ED,52,E1,38,E4,JE,A0,D3 
1150 DATA AB,FB,C9,FIM 


HCO0O TO &HCOS; 
PORE I VAL CONTAS ENERT 
1170 PRINT “GRAVAR EDEFUSR=&HCO00:PRINT vias 


BRO) 

1180 PRINT “TOCAR: DEFUSR=&HCOZE:PRINT UR 
GR(O) 
1190 EnD he 


Se o seu micro for um Hotbit, mude a linha 119 
para: 


1190 POKE &HC002, 255:POKE &HCO90,255:END 


BIBLIOGRAFIA RECOMENDADA; 
Aprofundando-se no MSX - capítulo 3. 
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DIGAS PARA O SASS) 


[E 


Neste capítulo abordaremos o gravador cassete. 
us recursos e suas utilizações. 

Além dos recursos disponíveis normalmente no 
BASIC. várias aplicações somente possíveis através da 
Linguagem de Máquina são abordadas. O gravador pode 
ser usado com mais segurança e malor rapidez. 


Auto-execução de programas em casseta . 106 
Gravando programas BASIC em binário ... 
Gravando textos . 
Lendo textos .. é 
verificando gravações ...... 
Gravador de SCREEN 2 ....... 
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4.1 — AUTO-EXECUÇÃO DE PROGRAMAS EM CASSETE 


O programa apresentado a seguir gera 6 grava em 
tita uma pequena rotina em Linguagem de Máquina ca 
de carregar e auto-executar programas em BASIC 
gravados por CSAVE, 

O procedimento para usá-lo é o seguintes 


+ digite e execute o programa, 

+ prepare o gravador cassete com a fita em que 
será gravado o programa em BAS| 

» digite RETURN para gravar a rotina em L.M, 
(ela será gravada com o nome AUTOMA) 

» digite NEW 

» digite o programa em BASIC a ser gravado em 
fita cassete; 

+ grave-o com 0 comandos 


SAVEMATRIX” 


Agora. a fita deve conter, em sequência, 
programa AUTOMA (gravado por BSAVE) e O prog 
MATRIX (gravado por CSAVE). O programa AUTOMA pode 
qualquer outro nome, porém o programa MATRIX deve 
gravado exatamente com esse nome (com as letra 
maiúsculas). 

Para carregar e auto-executar o programa MATRIX, 
basta posicionar a fita no programa AUTOMA e comandar. 


a 
r 
r 
8 


BLOAD“CAS:”,R 


Quando for carregado para a memória do micro 
paSgrama AUTOMA carregará o executará o programa 
xt 


PROGRAMA GERADOR DO AUTOMA 


100 REM 
110 REM AUTOCAS.BAS 

420 REM 

130 SCREEN O 

140 WIDTH 39 

150 CLEAR 200,8HCO0O 

160 FOR F=8HCÕ00 TO &HCO4L 

170 READ AS 

100 A=VALC"RHU+Ag) 

190  POKE F,A 

200 NEXT F 

210 PRINT,,,» “PREPARE O GRAVADOR E “; 
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220 PRINT “PRESSIONE RETURN!” 

230 AS=INPUTSC1) 

240 BSAVE“CAS: AUTOMA”, 8HC000, 8HCO41 
250 END 

260 REM 

270 REM DATA"s para L.M. 

280 REM 

290 DATA F3,FD,21,B0,FB,FD,36,00 
300 DATA 00,FD,36,01,01,21,34,C0 
310 DATA 11,F0,FB,01,0D,00,ED,BO 
320 DATA 21,FO,FB,22,FA,F3,11,0E 
330 DATA 00,19,22,F8,F3,21,2B,C0 - 
340 DATA CD,3F,70,22,4D,41,54,52 er 
350 DATA 49,58,22,00,43,4F,4C,4F 
360 DATA 52,37,20,31,98,52,55,4E 
370 DATA 0D,49,00,00,00,00,00,00 


BIBLIOGRAF| 
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4.2 - GRAVANDO PROGRAMAS BASIC EM BINÁRIO 


Quando dispomos apenas do gravador cassete para 
armazenar dados de um programa, o processo de gravação 
e leitura se torna lento e pouco confiável. Uma forma. 
de torná-lo mais prático é armazenando o programa é 
seus dados conjuntamente em formato binário. Para Isso 
devemos dispor de um pequeno programa em Linguagem de 
Máquina que deve preparar a memória do micro para 
poder gravá-la sem perder os dados. 

Vamos exemplificar o que acabamos de descrever, 
Imagine que você queira armazenar a matriz gerada pelo 
programa da figura a seguir, 


100 DIM AS(5000,1) um 
120 FOR F=9 TO 5900 term 
199 FOR 0=0 TO É 

140 ASF, G)=STR$C2NF 4612) EC 


150 NEXT 6 E 
160 NEXT F Ei 
RC CI 


Uma das maneiras de fazer [so seria abrir um 
arquivo no casse gravar cada um dos nes: 
arquivo, Esse processo é extremamente 
portanto mais sujeito a falhas. Se pudermos gravar em 
binário (com BSAVE) a região da memória que contém as 
variáveis, e até o próprio programa, economizaremos 
empo e aumentaremos a confiabilidade dos dados. 

A seguir vamos apresentar um programa em BASIC 
que, ao ser executado, gera em fita ou em disco um 
programa em Linguagem de Máquina com o nome “BASBIN” 
tem fita) ou “BASBIN.BIN” (em disco). Antes de 
prosseguir. digite-o e execute-o. Depois. verifique 
O programa BASBIN foi realmente gerado. 


100 REM 

110 REM BINARIZADOR DE BASIC 
120 REM 

130 E=&HDO00 

140 READ AS = A=VALC“8H/+AS) 
159 IF AS="XX” THEN 470 

160 POKE E,A 2 E=E+4 : GOTO 140 
170 E=aHD100 

180 READ AS 2 A=VAL(“&HU+AS) 
190 IF As="Xx” THEN 240 

200 POKE E,A 3 E=E+4 : GOTO 480 
210 E=&HD200 


198 


220 READ AS 2 A=VALCRHV+AS) 

230 IF AS="XX” THEN 250 

240 POKE E,A : E=E+1 : GOTO 220 
259 BSAVETBASBIN.BIN”, &HDO00, &HD28C 
260 END 

270 REM DADOS EM &HDO0O 

280 DATA F3,21,07,80,ED,4B,80,F3 
290 DATA CD,4C,DO,ED,4B,77 Fá rCD 
300 DATA 4C,DO ED, 4B 6h, FÍ,CD,4C 
340 DATA DO,ED,4B,68,F1,CD,4C, DO 
320 DATA ED,4B,68,F1,CD,4C,DO,ED 
330 DATA 48,A0,FO,CD,4C,DO,ED,4B 
340 DATA Có,Fó,CD,4C, DO, ED, 4B, CA 
350 DATA Fó,CD,4C, DO, ED, 4B,C2,Fó 
360 DATA CD,4C,DO ED, 4B,76,F6, CD 
370 DATA 4C,DO,FB,69,71,23,70,23 
380 DATA C9,48,50,45,40,41,20,41 
390 DATA 52,4F154,49,44,45,4F 154 
400 DATA 44,4E,45,52,XX 

440 REM DADOS EM &HDL00 

420 DATA F3,24,07.B0,01,80,F3,CD 
430 DATA 4D,D4/01,77,Fí,CD,AD, Di 
AMO DATA 01,6A,F1,CD,4D,D1, 01,68 
450 DATA F1,CD,4D,D1,01,68,Fí,CD 
460 DATA AD, D1,01,A0,FO,CD,4D,Di 
A7O DATA 04,C6,Fó,CD,4D,D1,0L,C4 
480 DATA Fá, CD,4D,D4,01,C2,Fó,CD 
490 DATA 4D,D1,01,76,F6,CD,4D, Di 
500 DATA 21,55,D1,11,07,80,01,14 
510 DATA 00,ED,BO,FB,C9,7E,02,23 
520 DATA 03,7E,02,23,09,45,44,49 
530 DATA 54,4F,52,41,20,41,40,45 
540 DATA 50,48,20,2D,20,31,39,38 
550 DATA 37,XX 

560 REM DADOS EM &HD200 

570 DATA F3,21,07,80,01,80,F3,CD 
580 DATA 65,D2,04,77,Fí,CD,65,D2 
590 DATA 04,6A,Fi,CD,65,D2,04,68 
400 DATA F4,CD,65,D2,01,68,F4,CD 
610 DATA 65,D2,01,80,FO,CD,65,D2 
620 DATA 01,C6,F6,CD,65,D2,01,C4 
630 DATA F6/CD,65,D2,01,C2,F6,CD 
640 DATA 65,D2,01,76,F6,CD,65,D2 
650 DATA 24,78,D2,11,07,80,01,14 
460 DATA 00,ED,BO,21,6D,D2,11,F0 
foro DATA FRrdi. 0B,00,ED,BO,21,FO 
480 DATA 22,FA,F3,11,0C,00,19 
690 DATA dBrFaL F3,FB,C9,7E,02,23 Eras 
700 DATA 03,7E,02,23,09,47,4F +54 


; 


x 


s 
EE) 


740 DATA 4F,20,30,30,31,32,30,0D 
720 DATA 45,44,49,54,4F,52,41,20 
730 DATA 41,4C,45,50,48,20,2D,20 
740 DATA 31,99,38,37,XX 


Uma vez com o program 
testá-lo. ao mesmo tempo er 
aprender como ele deve ser u Para isso. limpe 
memória com um NEW e digite a programa a seguir 
exatamente como ele está listado, sem nenhum espaço 
menos ou a mais! 


BASBIN gravado, 
que aproveitamos pa 


100 REM EDITORA ALEPH — 1987 
110 CLEAR 200, 8HDO0O 

120 X$="EDITORA ALEPH — 1987” 
130 PLAY“T240SBM1 000” 

149 PLAY/O2CEGAA+AGE” 

159 PLAY/O2CEGAA+AGE” 

160 PLAY“ FAOICDD+DCODA” 

170 PLAYVOZCEGAR+AGE” 

180 PLAY“O2DEFF+GFED” 

190 SCREEN O:PRINT ,,,,” “3x5 
200 GOTO 140 


Após tê-lo digitado, executi 
segundos e pressione CONTROLASTOP para Interrom 
Vamos agora pi memória para poder ser gravada 
em binário. Digite o seguinte comandos 


BLOAD“BASBIN.BIN”,R 


espere 


ar 


A seguir, vamos gravar a memória com o programa & 
com os dados. Para isso, comandes 


BSAVE"TESTES. BIN”, &HB000, &HD300, &HD200 

Com Isso o programa em BASIC e seus dados serão 
gravados em formato binário. 

Para tornar a carregá-io, basta comandar, 

BLOAD“TESTES.BIN 

E a seguir, comanda 


DEFUSR=&HD1O: 


PUSR (0) 
Experimente fazer isso e depois comande; 
me 


PRINT X$ 


você verá que o conteúdo de X$ ainda está 
presente, 
Se tivéssemos comandado: 


IN.BIN”, 


O programa seria carregado e começaria a rodar 
automaticamente a partir da linha 120. Essa é uma 
outra forma de fazer programas em BASIC se 
auto-executarem logo após a carga a partir de fitas 
cassete. 

Você pode usar o BASBIN.BIN com qualquer programa 

IG. desde que ele não ocupe a memória acima de 
SHDOBO. O programa em BASIC deverá começar sempre com 
as duas primeiras como mostradas à seguir: 


100 REM EDITORA ALEPH — 1987 
110 CLEAR 200,R&HDOOO 


BLOAD“RA! 


A rigor, o primeiro parâmetro do CLEAR da linha 
110 pode ser alterado, mas o segundo deve ser 
necessar lamente menor ou igual a &HDOGO | 


A) 
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4.3 -GRAVANDO TEXTOS 


Este programinha transfere uma mensagem (em 
ASCII) para a fita cassete. Após a chamada, ele 
transfere para a fita os dados definidos após AHCOI6 
até o primeiro byte 8H00. retornando então ao 
interpretador BASIC. 


1000 DATA CD,EA,00,21,16,C0,7E,A7 
1010 DATA 28,08,ES,CD,ED,00,E1,23 
1920 DATA 18,F4,CD,FO,00,C9 

1025 REM a seguir está a mensagem 


Los] 
Ee 
REI 
1090 DATA 4F,53,20,43,59,4C,4F,4E [<<] 
ER 
vei 


1040 DATA 49,4F ,53,20,49,4E 56,41 

1050 DATA 44,49,52,41,4F,20,41,20 

1050 DATA 54,45,52,52,41,20,21,00 

1070 CLS:FOR I=&HC000 TO &HCo3s 

É980 READ ASEPOKE T.VAL(“&HT4AS) NEXT Ta 


BIBLIOGRAFIA RECOMENDADA: 
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4,4 - LENDO TEXTOS 


Este programa faz 
lê a fita e transfere p 
Devido à simplicidade 


função oposta à da dica 4.3: 
tela a Informação II 
este sistema, caracteres do 
controle (CR, LF, etc) não são reconhecidos como tals 
aparecem na tela como símbolos gráficos. A leltura 
mina na primeira ocorrência do byte &HO0 


Para posicionar a informação na t 
comandos 


a use os 


LOCATE C,LEPRINT 5 
onde Ge L são as coordenadas de impressão desejada. 


4000 DATA CD,E1,00,CD,E4,00,A7,28 [so] 
O DATA 04,D3,98,18,F6,CD,E7,00 nem 

O DATA C9,FIM 
CLStFOR I=8HC4 

POKE I,VALCCAHT+AS 


[e] 
TO $MESLONREAD Agar 


BIBLIOGRAFIA RECOMENDADA: 
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4.5 - VERIFICANDO GRAVAÇÕES 


Quantas vezes você já não deu socos no seu 
gravador por causa de um programa que não carregou? 
Para programas em BASIG ainda existe o comando 
"CLOAD?”, mas para programas em binário nada fol 
implementado no BASIC MSX visando a verificação de 
gravações. 

O programa a seguir instala na RAM uma sub-rotina 
em L.M. que faz a função de verificar um arquivo 
gravado no formato binário. Eis o programa: 


1000 REM -—— mm 
1010 REM VERIFICADOR DE BSAVE V. 1.0 
1020 REM (C) 1987/88 BY THE PILOT 

4099 REM =5==—=—. == —— 
1040 DATA CD,6C,00,AF,D3,99,D3,99 

1050 DATA CD,E1,00,38,76,06,0A,05 

1060 DATA CD,E4,00,C1,10,F9,FE,DO 

1070 DATA 20, EE, 06,06,C5,CD,E4,00 Dar 
1080 DATA 98,61,D3,98,C1,10,F5,3E 
1090 DATA 3E,D9,90,D9,98,CD,E1,00 
1190 DATA 21,57,FB,06,06,E5,C5,CD 
1110 DATA E4,00,C1,E1,77,03 
1120 DATA 3E,2C,2A,57,FB, 

130 DATA D3,90,2A, 
140 DATA D3,98,2A,5B,FB,CD,A9,DO 
150 DATA 3E,20,06,12,D3,98,10,FC 
60 DATA 24,57,FB,ED,5B,59,F8B,13 
70 DATA AF,32,5D,FB,ES,D5,CD,E4 
80 DATA 00,D1,E1,38,0E,BE,C4,A? 
28 DATA DO29,7,E5,ED,S2,E4,20 
í 
2 


O DATA EB,18,05,3E,01,92,5D,FB 
O DATA 21,10,00,CD,C6,00,CD,EZ 
O DATA 00,34,5D,FB,AZ,CO,21,FC 
30 DATA DO,7E,A7,CB,23,CD,A2,00 
240 DATA 18,F7,CD,A9,D0,CD,B4,DO 
1250 DATA C9,F5,7C,CD,C7,D0,7D,CD 
1260 DATA C7,DO,F1,C9,F5,9E,2D,D3 
1270 DATA 98,FA,CD,C7,DO,3E,20,D3 
1280 DATA 98,9E,01,92,5D,FB,C9,F5 
1290 DATA CB,3F,CB,9F,CB,9F,CB,3F 
1300 DATA 04,EC,DO,81,4F,3E,00,88 
1310 DATA 47,0A,D3,98.F1,E6,0F,01 
1320 DATA EC,DO,81,4F,9E,00,88,47 
1330 DATA 04,03,98,C9,30,91,32,93 
1340 DATA 34,35,96,97,38,99,41,42 
1350 DATA 43,44,45,46,0D,08,53,45 
1360 DATA 4D,20,45,52,52,4F,53,0D 


1370 DATA 0A,00,FIM 
Não CLSsPRINT “CARREGANDO ROTINA V-BSAVIISME 
1990 FOR I=8HDO00 TO &HD109:READ AS:POKEEIAT 
IT. VALC/8H/+A$):NEXT IEPRINT “ROTINA CAR 
REGADA. “2 END 

Uso: após salvar o seu programa em binário, 
rebobine a fita e comandes 


DEFUSR=8HDO00: 2USR (0) 


Naturalmente, o seu programa não pode estar entre 
as posições SHDO00 e BHDI1O (por que?). A qualquer 
instante a verificação pode ser interrompida por 
GONTROL+STOP. 


BIBLIOGRAFIA RECOMENDADA: 
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- GRAVADOR DE SCREEN 2 


Desta vez é um programinha que guarda a tel 
gráfica (SCREEN 2) em fita cassete, deixando de ser 
privilégio dos possuidores de disk drives ess 
operaç 

Após carregar a rotina em L.M., basta chamar 
rotina desejada pela função USR. Naturalmente, 
função deve ser pré-programada. pois o computador 
apaga à SCREEN 2 no modo de comando. 


1000 REM 
1010 REM COPIADOR SCREEN 2<--)FITA ELE) 
1020 REM JANEIRO 1988 - THE PILOT 

1030 REM —— 
1040 DATA F3,DB,98,AF,D3,99,D3,99 
1050 DATA CD,EA,00,DB,CD,ED,00,CD 
1060 DATA ED,00,CD,ED, O 
1070 DATA DB,98,C5,CD, E 
1980 DATA 0B,78,B1,20,F 
1090 DATA C9,21,00,20,0 
1100 DATA ÍF,CD,56,00,F 
4110 DATA D3,99,D9,99,C 
1120 DATA CD,E4,00,CD,E4,00,CD,EA 
1130 DATA 00,CD,E4,00,01,00,98,05 
1140 DATA CD,E4,00,C1,D! 
1150 DATA 78,B1,20,F3,CI 
1160 DATA FIM 

1170 CLSSFOR I=8HDO00 TO &HDOSFEREAD ASaIMERE 
POKE 1 VAL(T&HV+AS) NEXT 

14180 PRINT “SCREEN 2<=->EITA/:PRINT:PR INN 
T “SALVAR? &HDO00”:PRINTLER: &HDO29” 
SPRINTIEND 


BIBLIOGRAFIA RECOMENDADA: 
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DICAS PANA À UMPHESSDAA 


O acesso à impressora nos micros MSX pode ser 
realizado de várias maneiras diferentes, sendo que o 
usuário pode interferir em algumas 

As dicas deste capítulo desvendam aos usuários 
comuns recursos disponíveis somente através da 
Linguagem de Máquina ou de programas em BASIC bem 
construidos. 


5.1 - Eco na impressora . us 
5.2 - Transformando PRINT em LPRINT us 
5.3 - Impressão dupla . 128 
5.4 - HEXA-PRINTER e HEXA-SCREEN 122 
5.5 - Filtro genérico . 123 
5.6 - impedindo o uso da impressora . 126 
5.7 - Cópia grática . 127 
5.8 - Caracteres deitados 130 
5.9 - Strings em modo gráfico 131 
5.4 - Máquina de escrever .. 132 
5.8 - Impressor de programas . 133 


5.1 - EGO NA IMPRESSORA 


O MSX possui duas rotinas do BIOS para o envio di 
dados à impressora. Uma delas. a LPTOUT, pode ser 
facilmente usada para reproduzir o que for enviados 
para a tela diretamente na impressora. Uma aplicaçã 
desse tipo de recurso pode ser facilmente entendida si 
pensarmos em programas que apresentam resultados 
apenas na tela. Para fazê-los enviar os resultados 
para a impressora teríamos normalmente que alterá-los 
por Inteiro. Obviamente, a maneira mais fácil é usar O 
programa apresentado a seguir. 


100 CLEAR 200, &HE000 
110 FOR F=8HE000 TO aHEOBL 

120 READ AS E POKE F,VALC“&HV+AS) 
130 NEXT F E DEFUSRO=EHEOOO 

140 POKE O,USROCO) 2 END 

150 REM 

160 REM DADOS 

170 REM 

1000 DATA FD,21,A4,FD,FD,36,00,03 
1010 DATA FD,36,04,11,FD,36,02,E0 
1020 DATA C9,FE,7A,30,31,47,3A,80 
1030 DATA EO,FE,01,78,28,3F,47,3A 
1940 DATA 80,E0,FE,02,78,28,149,47 
1050 DATA 3A,80,E0,FE,03,78,28,49 
1060 DATA 47,9h,00,E0,FE,04,78,28 
1070 DATA 07,FE,20,98,09,CD,A5,00 
1080 DATA 21,80,E0,36,00,C9,FE,4B 
1090 DATA 28,0C,FE,0D,28,EF,FE,0A 
1100 DATA 28,EB,3E,20,18,E7,21,80 
1110 DATA E0,96,01,18,EB,FE,59,28 
1120 DATA OA,FE,4E ,28,0D,FE,4F ,28 
1130 DATA 09,10,05,21,80,E0,36,03 
1140 DATA 18,D3,21,80,E0,96,02,18 
1150 DATA CC,21,80,E0,36,04,48,05 
1160 DATA 00,00,52,45,8E,41,54,4F 


E 


Após executá-lo. pode-se apagá-lo da memória com 
o comando NEM. Entretanto é conveniente salvá-lo 
previamente em disco ou em fita. 
BIBLIOGRAFIA RECOMENDADA: 
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5.2 - TRANSFORMANDO PRINT EM LPRINT 


O pequeno programa apresentado a seguir deve ser 
inserido no final de programas maiores. Para 
acioná-lo, deve-se comandar: 


RUN 65000 (e RETURN) 


Ao ser executado ele “varre” o programa principal 
a procura de instruções PRINT e as substitui por 
instruções LPRINT. Isso pode ser muito útil pai 
redirecionar a saída de dados da tela para 
impressora. porém o programa não deve ter Instruções 
PRINT H. pois serão transformadas em LPRINT 
ocasionando erros de sintaxe. O programa também n 
deverá conter números cujo código compactado seja 
a token do PRINT (145). pois nesse caso eles 
seus valores alterados (observe como procedemos 


para evitar Isso na linha 65010 do programa, ao Invês 
de 145, escrevemos 1004951). 

65000 REM em 
65001 REM Muda PRINT p/ LPRINT [E] 
65002 REM 
65003 EL = 32769! 

45004 Bi = PEEKCEI) a Do = PEEKCEL+S) E 
65005 B3 = PEEK(EI+2) 2 BA = PEEKCEI+3) Riad 
45006 PL = B1 + 256482 
65007 NL = B3 + 256484 [See] 
65008 IF B1=0 AND B2=0 THEN END 
65009 FOR F=EI+4 TO PL-2 rs 
65010 IF PEEKCF)C)C100+45) THEN 65042 Eildã 
65044 POKE F, 457 Eras 
45042 NEXT F 
45043 EI=PL [E] 
65014 GOTO 65004 [EEE] 


BIBLIOGRAFIA RECOMENDADA: 
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5.3 - IMPRESSÃO DUPLA 


O programa apresentado a seguir gera uma rot 
em Linguagem de Máquina à partir do endereço BHEGOO 
capaz de fazer com que à Impressão de listagens é 
outros dados seja feita com dupla passagem da cabeç 
de Impressão. Com isso os textos ficarão mais legível 
e com maior contraste. 

Após digitar e gravar o programa. você pode 
apagá-lo da memória com o comando NEN 

Caso você deseje desativar a dupla impressão, 
basta comandar: 


POKE &HFFB6,&HC9 


Para ativá-la novamente, uma vez que tenha Sid 
desativada, basta comandar + 


POKE &HFFB6,&HC3 


Note que o programa em BASIC, ao ser rodado pede 
a quantidade de caracteres a serem impressos em cadi 
linha. Uma vez especificado esse pi tro, sempre que 
a dupia Impressão estiver ativa, as linhas serão 
impressas com essa largura. 

A rotina em Linguagem de Méquina não funcionará 
como esperado se o número de colunas especificado for 
maior que o número de colunas da impressora 


100 SCREEN O 1 CLEAR 200, 8HE000 
140 PRINT! PRINT & PRINT 

120 PRINT” Caracteres por linha “; 
130 INPUT C 

440 IF C(4 OR C)255 THEN RUN 

150 FOR F=8HE000 TO &HEO6F 

160 READ AS:POKE F,VALC“&HU+AS) 
170 NEXT F 

180 FOR F=8HE070 TO &HE173 

190  POKE F,0 

200 NEXT F 

210 POKE &HEO2A,C 

220 DEFUSR=8HE000 : POKE O,USRO(O) 
230 END 

240 DATA F3,21,0E,E0,22,87,FF,3E 
250 DATA C3,32,B6,FF,FB,C9,F5,C5 
260 DATA D5,ES,FE,0D,28,52,FE, OA 
270 DATA 28,13,ED,4B,6F ,E1,21,70 
280 DATA E0,09,03,ED,43,6F E1,77 
290 DATA 79,FE,FF,20,38,3E,C9,32 


120 


300 
ao 
apo 
330 
340 
aso 
360 
azo 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Bó,FF,CD,50,E0,CD,50,E0 
ED,4B,6F,E1,78,B1,3E,0A 
C4,A5,00,21,00,00,22,6F 
E1,3E,C3,92,86,FF, 18,18 
ED,4B,6F,E1,78,B1,C8,21 
70,E0,7E,CD,A5,00,23,0D 
20,FB,3E,0D,CD,A5,00,C9 
Es,D1,01,F1,33,33,87,C9 


IOGRAFIA RECOMENDADA. 


121 


5.4 - HEXA-PRINTER E HEXA-SCREEN 


Muitas vezes precisamos saber quais caracte 
(normalmente de controle) um dado programa 
(normalmente em Linguagem de Máquina) está enviando 
para a impressora. Nesses casos. seria multo cômodo sé 
ao invés de imprimir os caracteres propriamente dito 
pudessémos imprimir seus códigos hexadecimais. É 
ente isso que o programa listado abaixo faz, com 
pção ainda mais útil para quem não possu 
impressora: a possibilidade de simular na tela di 
vídeo a saída de impressora. Digite e grave 
postama. Depois ro use algumas vezes o comando 


100 FOR F=8HDO00 TO &HDO74 
110 READ AS:POKE F,VALCC&H/+AS) 
420 NEXT F 

190 SCREEN OELOCATE 0,7,02KEY OFF 
1440 PRINT SPCCLO)GTE À 1 HEXAPRINTER!2” 
450 PRINT SPCC10)P"L 2 3 HEXASCREEN” ” 
160 AG=INKEY$ 

170 IF A$=74” THEN 260 

180 IF AS(>/2” THEN 160 

190 POKE &HDO3B, &HAZ 

200 POKE &HDOMA, 8HAZ 

210  POKE &HDO4F , &HAZ 

220 POKE &HDOSB, &HC 

230  POKE &HDOSC, &HA2 

240 POKE &HDOSL, &HAZ 

250 — POKE &HDO70, &HC 

260 DEFUSR=8HDOO0 : S=USR(O) 

270 SCREEN O 2 NEW 

280 DATA F3,DD,21,B6, FF, DD, 36,00 
290 DATA C3,DD,96,04,13,DD, 36,02 
300 DATA DO,FB,C9,E5,D5,C5,F5,FE 
310 DATA 04,20,05,21,70,00,36,01 
320 DATA 21,B6,FF,36,09,47,9E,FO 
330 DATA AO,CB,9F CB, IF, CB, IF, CB 
340 DATA 3F ,C6,30,FE,36,38,02,C6 
350 DATA 07,C5,CD,A5,00,C1,9E,0F 
360 DATA AO,C6,30,FE,3A,38,02,C6 
370 DATA 07,CD,AS,00,3E,20,CD,A5 
380 DATA 00,21,70,00,35,20,0C,36 
390 DATA 10,3E,0D.CD,.A5,00,3E,0A 
490 DATA CD,A5,00,24,B6,FF, 36,03 
440 DATA F1,C1,D1,E1,93,99,87,09 
420 DATA 10,52,52,45,8E,41,54,4F 


ERREERGRREEARGSEPEEAPEGADOCAGARES 
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5.5 - FILTRO GENÉRICO 


O programa apresentado a seguir permite 
compatibilizar os caracteres acentuados de seu MSX 
(Expert 1,1 ou Hotbit) com a sua impressora, desde que 
ela os possua. 

Digite e grave o programa a seguir e depois 
execute-o comandando 


RUN 


Ligue a impressora e pressione a tecla RETURN. 

Serão impressos os caracteres correspondentes aos 
códigos de 128 (&HBQ) a 255 (AHFF) e seus respectivos 
códigos em hexadecimal. Não se assuste se durante essa 
impressão sua impressora “agir” de forma estranha pois 
pode ser que alguns dos caracteres enviados para ela 
correspondam a alguns de seus controles. como avanço 
de linha. beep, etc. 

Quando a impressão terminar veja o resultado e 
pressione RETURN novamente. Serão listadas na tela as 
linhas de 628 a 710 do programa para que você as 
altere conforme o resultado obtido na listagem da 
impressora. 

Procure cada caractere das linhas DATA na lista 
impressa e substitua o código (da listage 
original) pelo código que foi impres 

Feitas todas as alterações (não se esqueça de 
pressionar RETURN após cada uma delas! ), comando: 


BOTO 360 

Com isso será gravado um arquivo de nome 
PFILTRO.BIN*. Ele é seu programa “filtro” o para 
rodá-lo, basta comandar: 


BLOAD“FILTRO.BIN”,R 


Utilize-o toda vez que você pretender imprimir um 
texto com acentua 


400 POKE &HF447,4:5CREEN O 

110 WIDTH 38:KEYOFF 

120 LOCATE O 10PRINT” PREPARE SUA”; alma 

130 PRINT” IMPRESSORA E QUANDO ES- 4; ERR 

140 PRINT TIVER PRONTO APERTE A TECLA” ES 
[5] 
Est 


450 PRINT” (RETURN).” 
160 AS=INPUTS(L) 
470 IF ASC(AS)()43 THEN 160 
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180 FOR F= 128 TO 255 

190 LPRINT CHRSCF);” = “;HEX$CF) 
200 NEXT 

210 CLS 


220 LOCATEO,72PRINT” VEJA O QUE SAIU 


230 PRINT” NA IMPRESSORA E 


240 PRINT” ALTERE AS LINHAS DATA.” 
250 PRINT:PRINT” DEPOIS DE ALTERADAS: 


260 PRINT”, COMANDE 1 
270 PRINT/GOTO 3007:PRINT 


280 PRINT” APERTE A TECLA <RETURN)”; 


290 PRINT” PARA COMEÇAR” 
300 AS=INPUTSC1) 
310 IF ASC(AS)(543 THEN 300 


320 CLS:PRINT ” NãO SE ESQUEÇA DO“; 


330 PRINT “” (RETURN) APÓS AS 


340 PRINT “AÇÕES E DE COMANDAR GOTO “; 
350 PRINT “360.” :PRINTSLIST 620-7102:END 


360 CLS 


370 LOCATE 0,10:PRINT“PREPARE O DISCO”; 
380 PRINT” PARA GRAVAR O PROGRAMA” 
390 PRINT/FILTRO E TECLE RETURN “; 


400 PRINT” QUANDO PRONTO” 
410 AS=INPUTSC1) 

420 IF ASCCAS)()13 THEN 440 
430 RESTORE 6420 

440 FOR L=0 TO 55 

450 READ Z$ 

460 7=8H"+RIGHTS(Z6,2) 
470 POKE &HDOZG+L, VALCZE) 
AB0 NEXT 

490 RESTORE 720 

500 FOR E=&HDO00 TO &HDO25 
510 READ Z5 

520 POKE E,VAL(”&H"+25) 
530 NEXT 


540 BSAVE”FILTRO.BIN”, &HDO00, &HDOSD 


550 CLS 


560 LOCATEO,B:PRINT” | O PROGRAMA”; 


570 PRINT” ESTA GRAVADO. “:PRINT 


580 PRINT” PARA RODÁ-LO, COMANDE:” 
590 PRINTIPRINTO  BLOAD”;CHR$(34); 
600 PRINT“FILTRO.BIN?;CHR$(94);7,R” 


610 PRINT:PRINTEEND 
20 DATA Ç=20, U=20, 6=20, 8=20, 4=20, 3=20 
600 DATA (n$0, or08, àn0, fo20, ndo, nda 


640 DATA 4=20,8=26, , É=20, 2=20 
58 DATA R=20,0=20, 8, 0=20, 
669 DATA 0=28, 6=20, , $=28, 
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EEB a E 
BRE E 


rama 
690 DATA -=20,4=20, f Estas 
Tab DATA &=20, 5=20, £ = 
710 DATA 0=20,5=20 [=] 
720 DATA 21,B6,FF,3E,C3,77,23,41 

730 DATA 13,00,73,23,72,21,47,F4 

740 DATA 3E,FF +77, FE, BO, DS, FE, BE prece] 
750 DATA DO,E5,D5,21,A6, CF, 16,00 [Er] 
760 DATA 5F,19,7E,D1,E1,C9 [==] 


Como exemplo, apresentamos a seguir as linhas 
DATA de 620 a 710 preenchidas para compatibilizar um 
Expert 1.1 com uma impressora Mônica EIGO30. 


A9, 6=B2 
50 DATA ompa 
DATA 4 D4, U=B9, 
78 DATA 
DATA 


690 DATA 


DATA 
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Muitos programadores tentam proteger ao menos a 
originalidade de seus programas BASIC dos milhares de 
piratas amadores que farteiam por este país 
simplesmente desativando a listagem do mesmo na t 
Ledo engano o daqueles que pensam que Isso é efici 
Basta comandar LLIST e à listagem será enviada para a 
impressora. Se, entretanto, o progr aos 
carregado. desativar o uso da Impressora o problema 
estará resolvido. Para Isso, basta Inserir o código 
SHC3 na posição de memória AHFFBG, Experimente rodar 0 
programinha exemplo listado abaixo e depois tente 
enviá-lo para a impressora. 


10 POKE &HFFB6,&HC3 fe | 
20 REM Tente me listar numa impressora 
Eras 


30 PRINT “Comande LLIST |” 
49 END 


BLIOGRAFIA RECOMENDADA: 
Programação Avançada em MSX - página 149. 
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5.7 - CÓPIA GRÁFICA 


O programa listado a segulr Imprime uma cópi 
flel da tela presente no vídeo do micro mediante 
simples pressionamento da tecla ESC. 

Digite-o e grave-o. Depois. execute-o, Com Isso a 
rotina em Linguagem de Máquina estará pronta para sei 
usada na memória do micro. 


FOR F=8HE000 TO &HE25F 

READ AS 3 POKE F,VALC“&HC+AS) 
NEXT F 

DEFUSR=8HE000 1 S=USR(O) 
SCREEN O 2 NEM 
DATA 3A,CC,FD,FE,C9,CO, 21,12 
DATA E0,22,CD, FD, 3E,CD,32,CC 
DATA FD, C9,FE, JA, CO, FS, C5,DS 
DATA E5,ED,73,59,E2,0E,00,3A 
DATA AF, FC,B7,21,F0,00,11,28 
DATA 06,28,06,21,00,01,11,20 
DATA 08,3E, 48 CD, 97,E0,3E,4B 
DATA CD,97,E0,7D,CD,97,E0,7C 
DATA CD,97,E0,06,00,CD,A1,EO 
DATA D5,C5,24,5B,E2,42,11,08 
DATA 00,C05,E5,06,08,7E,FE,08 
DATA 3F,CB,41,19,140,F7,79,CD 
DATA 97,E0,Ei,C1,23,10,EA,Ci 
DATA D1,04,78,BB,20,D7,3E OD 
DATA CD,97,E0,3E,1B,CD,97,E0 
DATA 3E,41,CD,97,E0,3E,08,CD 
DATA 97 ,E0,3E 0h, CD, 97 EO, 3E 
DATA 18,CD,97,E0,00,79,FE,18 
DATA 20,8D,E1,D1,Cí,Fí,C9,CD 
DATA A5,00,D0,ED,7B,59,E2,18 
DATA F1,C5,D5,E5,FD,E5,21,5B 
DATA E2,3E,40,36,00,29,3D,20 
DATA FA, 3A AF ,FC,B7,F5,C5,C4 
DATA 73,E1,C1,69,26,00,29,29 
DATA 29,5D,54,29,29,F1,F5,20 
DATA 01,19,58,19,EB,D6,02,79 
DATA 01,00,00,2A,24,F9,E5,2A 
DATA 22,F9,38,19,20,0C,2A,CB 
DATA F3,E3,2A,C7,F3,E6,18,47 
DATA 148,0B,2A,D5,F3,E3,2A,D1 
DATA F3,07,E6,06,4F,19,CD,4A 
DATA 00,6F,26,00,29,29,29,09 
DATA EB,FD,EL,FD,19,2A,C9,F3 
DATA 19,0F,0F,0F ,E6,1F,4F 06 
DATA 00,3A,E4,F3,57,E6,0F , SF 


my 
q 


500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
400 
610 
620 
630 
640 
450 
460 
470 
+80 
490 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
Boo 
ato 
azo 
nao 
Bao 
B5o 
Bo 
870 
seo 
Boo 
900 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Agora, ti 


Fí,ES,3D,20,08,20,BF,F3 
09,CD,48,00,57,21,5B,E2 
06,08, FD,ES,E3,CD, 40,00 
4F,E1,FD,23,30,A 
92,38,15,28,0C,5 
78,FE,05,28,05,F| 


C5,06,08,CB,1 
0D,7A,30,04,0F,0F, 
E6,0F,20,01,7B,77,2: 
EA,C4,10,BE,Eí,FD,E. 
D£,C1,09,78,07,07,07,C6 
07,47,79,07,07,107 106,07 
AF, AF, CD,87,00,57,C! 
90,FE,DO,CB,D5,0 
EL,CL,F1,3C,FE,20,20,EA 
C9,91,2F,FE,27,D0,4F,23 
CD,48,00,5F,78,93,5F ,9F 
97,23,CD,48,00,47,23,CD 
48,00,CB,7F ,28,05,21,20 
00,19,EB,14,15,C0,E6,0F 
C8,57,3A,E0,F3,CB,4F,0F 
3E,00,30,01,87,28,05,CB 
BO,CB,88,87,6F,C6,06,89 
D8,8B,DB,79,D6,07,4F,7D 
26,08,38,08,91,FE,09,38 
92,3E,08,67,7B,D6,07,5F 
7D,2E,08,38,08,93,FE,09 
38,02,3E,08,6F FD, 21,58 
E2,D5,CB,79,20,46,E5,FD 
E5,CB,7B,20,38,FD,7E,00 
B7,20,32,05,D5,E5,3A,E0 
F3,9F,30,04,CB,39,CB,38 
CB,58,28,04,CB,9B,CB,Eí 
68,26,00,44,29,29,29,09 
ED,4B,26,F9,09,CD, 48,00 
10,07,1D,20,FC,30,03,FD 
72,00,E4,D1,Cí,FD,23,4€ 
2D,20,BE,FD,Eí,E1,11,08 
00,FD,19,D1,0C,25,20,A9 
€9,3E,41,40,45,50,48,09 


seguir e pressionando a tecla ESC. 


10 SCREEN 2 
20 FOR F=80 TO 4 STEP -10 
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a rotina executando o programinha 


30 CIRCLE (128,80),80,15 [e 
40 CIRCLE (128,80),80,15, Eletoas 
50 NEXT F [ac] 
60 LINE (128,160)-(128,0) (rTe] 

[E] 


70 LINE (48,80)-(208,80) 
Bo Goto BO 


O programa copia para a Impressora todas a 
regiões da tela (qualquer uma das SCREEN'S) cuja cor 
possua um código superior a 7. inclusive os SPRITES. 


TO 1986 SOFTMARE LOMAUNICATIOAS LO, RIVAUEER 


E 


BIBLIOGRAFIA RECOMENDADA 


Aprofundando-se no MSX - capítulo 6. 
Programação Avançada em MSX - capítulo 3. 
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5.8 - CARACTERES DEITADOS 


O programa listado adiante gera uma rotina em 
L.M. que imprime uma string em modo gráfico, porém 
gira, previamente, seus caracteres de 90%. 

Isso pode ser de grande utilidade para produzir 
mensagens que devem ser lidas “em pé”, de cima par 
baixo. 

À string a ser impressa deve ser passada com 
parâmetro na função USR. 


10 Doces see 

20 "x BY THE DOCTOR LUZ » 

DO PRIMO Is 

40 FOR L=8HC000 TO &HCOBA 

50 READ ASZPOKE L,VAL("&H"+A5) 

60 NEXT 

70 DEF USR=8HCO0O 

Bo PRINT/RODAR PROGRAMA 7” 

90 AG=INPUTSCA) 

100 IF A$="5” THEN GOTO 200 ELSE END 
200 PRINT/DIGITE A STRING A SER IMPRESSA 


210 INPUT AS 

220 AG=USR CAS) 

230 GOTO 80 

1000 DATA 2A,FB,FZ,46,05,CD,3F,CO 
1010 DATA 23,7E,5F,23,7E,57,EB,ES 
1020 DATA E1,29,E5,7E,C5,21,BF,1B 
1030 DATA 5F,16,00,CB,23,CB,12,CB 
1040 DATA 23,CB,12,CB,23,CB,12,AF 
1050 DATA ED, SA, EB, CD,61,60,06,08 
1060 DATA 21,00,C2,7E CD ,A5,00,23 
1070 DATA 10,F9,C1,10,D3,E1,C9,9E 
1080 DATA 1B,CD,A5,00,3E,4B,CD,AS 
1090 DATA 00,58,16,00,CB,23,CB,12 
1100 DATA CB,23,CB,12,CB,23,CB,12 
1110 DATA 7B,CD,A5,00,7A,CD,A5,00 
1120 DATA C9,06,08,C5,21,00,C2,06 
1130 DATA 08,14,17,CB,14,23,10,FA 
1140 DATA C4,13,10,EF,C9,CD,ED,00 
1150 DATA D1,E1,98,07,29,E7,20,F2 
1160 DATA C3,F0,00,21,90,71,C3,1A 
1170 DATA 70,7D,05 


BIBLIOGRAFIA RECOMENDADA, 
Linguagem de Máquina MSX - páginas 140 a 143. 
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5.9 - STRINGS EM MODO GRÁFICO 


O programa a seguir é quase igual ao da dica 5.8 
porém a Impressão da string feita sem que Os 
caracteres seja girados. 

Lembre-se que tanto esta dica quanto a anterio! 
só funcionarão se a impressora conectada ao micro 
entrar em modo gráfico segundo o padrão EPSON e tivei 
9 agulhas em sua cabeça de Impressão. 


10 Pure e 

BY THE DOCTOR LUZ x 

DO TRI DEI 

HO FOR L=8HCO0O TO &HCO72 

50 READ ASIPOKE Ly VALCC&HV+AS) 

60 NEXT 

70 DEF USR=8HCO00 

BO PRINT/RODAR PROGRAMA 7” 

90 AS=INPUTSC1) 

100 IF AS="5" THEN GOTO 200 ELSE END 
200 PRINT“DIGITE A STRING A SER IMPRESSA dild 


EE 


GERRSEERES 


2410 INPUT AS 

220 AS=USRCAS) 

230 GOTO BO 

DATA 2A,FB,E7,46,05,CD,3C,CO 
DATA 23,7E ,5F ,23,7E,57 68,26 
DATA 00,ED,5A,ES,E1,28,E5,7E 
DATA C5,21,C6,18,5F,46,00,CB 
DATA 23,CB,12,CB,23,CB,12,CB 
DATA 23,CB,12,AF ED, SA, 06,08 
DATA 7E,CD,A5,00,28,10,F9,C1 
DATA 10,DA,EÍ ,C9,9E 1B,CD,AS 
DATA 00,3E,48,CD,AS,00,58,16 
DATA 00,CB,23,CB,12,CB,23,CB 
DATA 12,CB,23,CB,12,7B,CD,AS 
DATA 00,7A,CD,A5,00,09,06,08 
DATA C5,21,00,02,06,08,1A,17 
DATA CB,16,23,10,FA,C1,13,10 
DATA EF ,C9,10 


BIBLIOGRAFIA RECOMENDADA: 
Linguagem de Máquina MSX - página 143. 
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5.8 - MAQUINA DE ESCREVER 


O pequeno programa listado a seguir, após ser 
executado, faz com que todos os caracteres digitados 
no teclado apareçam na tela e também na impressora 
Desse modo pode-se usar a Impressora quase como uma 
máquina de escrever. 


100 KEY1,CHR$(13)+CHRS(10) 
110 SCREÉN O 2 WIDTH 40 
120 PRINT “F4 avança 1 linha!” 
130 PRINT “HOME/CLS avança uma página!” EEB 
140 FOR F=8HE000 TO &HEO0E 

150 READ ASIPOKE F.VALCT&HV+AS) 
160 NEXT F : DEFUSROS8HE000 

170 POKE O, USRO(O) : END 

180 DATA CD,9F ,00,CD,A2, es: ED +40 
190 DATA 01,CD,B7,00,30,F2 


BIBLIOGRAFIA RECOMENDADA: 
Linguagem de Máquina MSX - páginas 139 e 148. 
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5.8 - IMPRESSOR DE PROGRAMAS 


O programa apresentado a seguir permite 
impressão de listagens de programas sem que eles 
passem pelo “picote” do formulário contínuo. Ele só 
funcionará se o formulário for o de uso padrão. com 66 
linhas de impressão, e se o entrelinhamento da 
impressora não tiver sido alterado. 

Para usar o programa, digite-o e rode-o. Ele Irá 
gerar e gravar o programa em Linguagem de Máquina 
responsável pelo “salto” sobre o “picote”. Antes de 
comandar LLIST para listar um programa de mais de 66 
linhas, carregue a rotina em Linguagem de Máquina 
comandando: 


BLOAD/IMPRE.BIN”,R 
Depois. pode-se usar o LLIST normalmente. 


100 FOR FX=8HE000 TO &HEO3A 

410 READ ASIPOKE FX, VALCC&HV+AS) 
120 NEXT FX:DEFUSRO=8HEO00 

130 POKE O, USRO(O) 

140 BSAVE“IMPRE BIN”, &HE000, &HEO3A 
159 END 

160 DATA F3,9E,09,32,B6,FF,21,0E 
170 DATA E0,22,B7,FF,FB.C9,.FE,0A 
180 DATA C0,94,3A,E0,9C,32,9A,E0 
190 DATA FE,3F ,3E,0A,C0,3E 09,92 
200 DATA B6,FF,3E, OA, CD, AS,00,CD 
210 DATA AS,00,CD,A5,00,CD,A5,00 
220 DATA 3E,C3,92,B6,FF AF, 92,94 
230 DATA EO,C9,00,00,00,00,00,00 


REBRSEBRERRREE 


BIBLIOGRAFIA RECOMENDADA: 
ão Avançada em MSX - página 148. 
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DICAS PARA d dityE 


O disk drive é sem dúvida um dos mais importantes 
periféricos no sistema MSX. Dentre as máquinas 
ts. provavelmente a que consegue um 
aproveitamento dos drives são as do padrão MSX. 
ver alguns recursos do drive a partir do BASIC e do 
MSXDOS. 

Aconselhamos que a numeração dos programas seja 
seguida à risca, pois em alguns casos pode-se tirar 
proveito disso. A sequência de programas das dicas 
entreab.2ea 6.6 pode ser emendada através de 
comandos "MERGE”, constituindo-se num único programa 
utilitário de disco. Leia mais sobre Isso nas 
explicações da dica 6.2 . 

A bibliografia recomendada para todas estas dic 
é à mesma 


Usando o Disk Drive no MSX, 
Sistema de Disco para MSX é 
Drives Leopard de 3 1/2” 


6.1 - Personalizando disquetes 135 
8.2 - Cabeçalhos de arquivos .... 136 
6.3 - Características de discos . 139 
6.4 - Mapa de discos . 141 
6.5 - Leitor de setores . 145 
6.6 - Leitor de arquivos 147 
6.7 - Programador de funç 148 
8.8 - CLS em MSXDOS - 151 
6.9 - BEEP em MSXDOS .. . 162 
8.4 - “SWAP” de arquivos 152 
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6.1 - PERSONAL IZANDO DISQUETES 


O pequeno programa apresentado a seguir grava uma 
mensagem de até 512 bytes no último setor de um disco. 

Você pode usá-lo para “marcar” seus discos com 
seu nome ou com qualquer outra mensagem. 

O texto da mensagem deve ser inserido nas linhas 
DATA*s ao fim do programa ve terminar sempre com o 
caractere “0”, 


100 XG=DSKIS(0,0) 


140 ENPEEK(&HF351)+256xXPEEK C&HF352) MM 
120 LS=PEEK (EN+19)+255*PEEK (EN+20) 1 
130 READ X% DOS] 
140 IF X6="0" THEN 190 Pare 
450 FOR F=EN TO ENSLENCXS)-1 Bota 
160  POKE F,ASCCMIDSCXS,F-ENH1,4)) Bam 
470 NEXT F 1 ENcF Era 
180 GOTO 190 [4] 
190 DSKOG 0,15 ErTag 
200 END Exiag 
dis REA rea aa Em 
Texto a ser grava: 
230 REM —— == 1] 
240 DATA Este disquete é de o] 
250 DATA propriedade exclusiva 
260 DATA de seu próprio dono 1 [70] 
270 DATA O 
Rc 


BIBLIOGRAFIA RECOMENDADA: 

Usando o Disk Drive no MSX - páginas 115 e 116. 
Sistema de Disco para MSX - páginas 64 e 65. 
Drives Leopard de 3” - páginas 98 e 99. 
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6.2 - CABEÇALHOS DE ARQUIVOS 


O programa apresentado a seguir lê o cabeçalho de 
programas gravados em disco no formato binário. Após 


digitá-lo e conferí-lo, grave-o no formato ASCII. 
2000 REM 

Boto REM cabeçalho de arquivos 

2020 

2030 PLAY “soM5000oLCH” 


2040 SCREEN O : WIDTH 38 : KEY OFF 
2050 COLOR 15,1,1 2 PRINT : PRINT 
2060 PRINTSPC(9);/CABEÇALHO DE ARQUIVOS” 
2070 PRINTSPC(9);"-— pç Mg 
2080 PRINTZFILES:PRINTEPRINTEXS="" 
2090 PRINT"NOME DO ARQUIVO “;2 INPUT X$ 
2100 IF X$=“ THEN 1000 
2110 OPEN X& AS Há LEN= 
8420 FIELD W4,14 A5 AS 
2430 IF LOF(4)()0 THEN 2440 

CLOSE Hi 2 KILL X5 3 GOTO 2000 
GET W4,4 2 IF ASC(AS 
PRINT/NÃO É BINÁRIO” 
RESTORE 2250 : PRINT 
FOR F= 4 TO 6 STEP 2 
READ BS & PRINT “==> “;B$;"2"5 
GET ní,E+2 
PRINT “8H”; 
PRINT RIGHTSC“0/+HEXSCASC(AG)),2)5 


GET Má,F+1 1551] 
PRINT RIGHTS("0"+HEXSCASCCAS)),2)  Iatria 
NEXT F 5 CLOSE n4 terre) 
DATA INÍCIO FIM + EXECUÇÃO (EGE] 

O e 


Para usar o programa acima e os programas das 
dicas de 6.3 a 6.6 será necessário digitar também o 
programa MENU, listado a seguir. Digite-o e grave-o em 
ASCII com o nome MENU. 


240 FOR Fai TO 40 2 KEY E,” 
1000 REM 

1010 REM MENU PRINCIPAL 

1020 REM — 
1030 PLAY “saMag0056H” 

1040 COLOR 15,4 : SCREEN O = WIDTH 40 
1050 KEY OFF : CLOSE 

1060 FOR F=1 TO 8: KEY CF) ON = NEXT F 
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NEXT F 


E 
E 


4070 LOCATE 9,2,0 

1080 PRINT “>>> MENU PRINCIPAL (((” 
1090 PRINT SPC(9);STRINGS(22,7-") 
1400 PRINT, 147 

41440 PRINT SPC(7):” E Fi 3 MENU PRINCIPA Butiá 


L?3 PRINT 
F2 1 CABEÇALHO DE Eli 


1420 PRINT SPC(7)5“ 3 

ARQUIVOS”: PRINT 
F3 1 CARACTERÍSTIC Eli 
Fa a 


4490 PRINT SPC(7)5” 
FS 


AS“: PRINT 

4440 PRINT SPC(7);” 

ETE”: PRINT 

1150 PRINT SPC(7)5” 

ES”: PRINT 

1160 PRINT SPC(7)5” 

VOS”: PRINT 

4470 PRINT SPC(7)4” E FZ 1 EDITAR DISCO lil 

1480 PRINT SPC(7)3” E FB 2 TERMINAR“: PR iidaa 

1190 ON KEY GOSUB 1000,2000,3000,4000,50 

90,6000,7000,8000 

1200 GOTO 1200 

2260 PRINT 3 LOCATE 8,29,0 [see] 

2270 PRINT/))) TECLE ESPAÇO (((“5 mem 

Esao TF STRIG(O)RO THEN 2280 ELSE RETURN ExEis 
oo 

3460 PRINT/)>) TECLE ESPAÇO (((” ea 

8470 IF STRIG(O6 THEN 3470 ELSE RETURN EM 

100% 

4920 LOCATEB,29,0 


MAPA DO DISQU 


3 DUMP DE SETOR lil 
F6 1 DUMP DE ARQUI litag 
a 


4930 PRINT “5)) TECLE ESPAÇO «<< 

ApaO IF STRIG(0)=0 THEN 4940 ELSE RETURN Bia 
E] 

5500 LOCATEB,22,0 


5510 PRINT?))) TECLE ESPAÇO «CCl5 kia 
5520 IF STRIG(0)=0 THEN 5520 ELSE GOTO 4 EH 
000 

6430 LOCATEB 22,0 [2] 
6440 PRINT “5)) TECLE ESPAÇO (ec Ex 
6450 IF STRIG(0)=0 THEN 4450 ELSE GOTO 4 EM 


000 

7000 REM Elsa 
7010 REM 5 [as] 
7020 REM — [EA] 
7030 SCREEN O ti 


7040 PRINT = PRINT 2 PRINT SPCC40); [EE==] 
7050 PRINT “NÃO IMPLEMENTADA 2 [5050] 
1099 
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7060 PRINT 2 PRINT E PRINT SP 


Z070 PRINT “” DIGITE RETURN 111” [Ec] 
7080 COLOR (F) MOD 45 : F=F+41 Ea 
7990 IF INKEY$=CHR$(13) THEN RUN [ECT 
7100 BEEP : GOTO 7080 Ea 
8000 REM 
8010 REM terminar Exa 
8020 REM — 
B030 SCREEN O : WIDTH 40 : KEY ON [5] 
8940 DEFUSRO=8H3E = X=USRO(O) Exa) 
Bos0 FOR F=í TO 8 : KEY(F) OFF =: NEXT F liga 
Boo END [ET] 

Lar 2 9 


Quando você já tiver todos os programas (6.2, 
8.9, 6.4, 6.50 6.8) digitados e gravados, digite 
seguinte sequência de comandos: 


LOAD “MENU” 

MERGE “programa 6.2” 
MERGE Eça 
MERGE 8.47 


MERGE “programa 6.57 
MERGE “programa 6.67 


Depois, grave o programa presente na memória do 
micro com o nome “DISCOUTI.BAS”, Rode-o para ver como 
as dicas operam em conjunto. 

+ À “SOMA TOTAL” do programa completo deverá sers 
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6.3 - CARACTERÍSTICAS DE DISCOS 


A rotina apresentada adiante 18 0 setor O de um 
disco e fornece as características de formatação do 
mesmo. Após digitar e conferir a listagem, grave-a no 
doimato ASC1I para posterior utilização com o comando 


3000 REM 
3010 REM | Características do d 
3020 REM ——— 
3030 PLAY “S0M500002DH” 
3040 SCREEN O 1 WIDTH 38 : KEY OFF 
3050 PRINTYCARACTERÍSTICAS DO DISQUETE” 
3060 PRINT. STRINGS(27,7=") 5 PRINT, 
3070 PRINT “Fornecedor O&M ..... 
3080 PRINT “Bytes por setor 
3090 PRINT “Setores por bloco .. 
3100 PRINT “Setores reservados 
9140 PRINT “NO de F.A.T.!'S voa 
9420 PRINT “Entr. no diretório 
PRINT “Setores 
PRINT “Tipo de 
PRINT “Setores 
PRINT “Setores 
PRINT “Fac é 
PRINT “Setores ocultos 
AB=DSKIG(O,0) 2 C = 256 
E=CxPEEK (&HF352) +PEEK C&HE 351) 
DEFENA(X) =CXPEEK (E+X) +PEEK C(E+X=1) 
DEFFNB (X) =PEEKCEAX) : LOCATE 23,3 
FOR I=E+3 TO E+io 

PRINT CHRSCPEEKCID) 5 
NEXT T 


Fri 
Ir 
ca) 
ISS4] 
tura 
[Tc] 
ES 
Em 
Ea 
Exiga 
Et] 
Extra 
DD] 
nua 
[CIC] 
DE] 
EESE] 
tag 
E] 
Exétd 
[7] 
tida 
Eita 
Elid 
Bo 
ERag 
Bag 
Bus 
[SET] 


LOCATE 22,4 4 PRINT FNA(ID) 
LOCATE 22,5 2 PRINT FNB(Í3) 
LOCATE 22,6 2 PRINT FNA(45) 
LOCATE 22,7 3 PRINT FNBC16) 
LOCATE 22,8 2 PRINT FNA(ÍB) 
LOCATE 22,9 2 PRINT FNA(20) 
LOCATE 23,107 PRINT HEXSCEN 
LOCATE 22,44: PRINT FNA(23) 
LOCATE 22,127 PRINT FNA(OS) 
LOCATE 22,137 PRINT ENAC(2Z) 
LOCATE 22,147 PRINT FNA(29) 
PRINT ,, “Capacidade total . 
Bs Ação) = SE = FNA(2O) 
2,16,0 


PRINT USING “hHHHHHHHHO; SEXBS; 


3440 PRINT “ bytes” [1:55] 
3420 PRINT “área ainda-disponíve 
3430 D=DSKF (0) :5=FNB(43) E LOCATE 22,47 [E 
3440 PRINT USING “HANHHNHHNO:DXSKOS 

3450 PRINT ” byutes”:PRINTSLOCATE 6,24,0 VM 


 ablogô 
toreg negervados”: 
le F.A 


Enero nó alheio 
Setores no diso 


asno 


lipo de d) 
E 
getores 
E 
Setores 


sen 


APR ainda span B6B6d8 butes 
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8.4 - MAPA DE DISCOS 


O programa apresentado a seguir Iê a FAT do disco 
ente no drive A e apresenta na tela o conteúdo de 
cada uma de suas posições. Em seguida o diretório do 
disco é lido é cada um de seus arquivos são mostrados 
na tela com todos os seus parâmetros especificados, 
incluindo os blocos do disco em que ele está 
armazenado. 

Após digitar e conferir o programa. grave-o no 
formato ASGI| para posterior utilização com o comando 
MERGE . 

Gaso um arquivo tenha sido apagado com o comando 
KILL do DISK BASIC ou ERASE ou DEL do MSXDOS. o 
programa permitirá a sua recuperação. mas APENAS NO 
DIRETÓRIO. Se o arquivo apagado ocupar menos que um 
bloco do disco, ele será automaticamente recuperado 
também na FAT, mas se ele ocupar mais de um bloco, 
apesar de ser recuperado no diretório, não será 
mapeado por completo na FAT. 


4000 REM E] 
4040 REM mapa do disquete 
4020 REM -==="—===——— -— 

4030 PLAY “50M500003EN” 

4040 SCREEN O & WIDTH 36 = KEY OFF Fraga 


neo PRINT SPC(6)7))) MAPA DO DISQUETE ELI 
4060 PRINT SPC(6);STRINGSC(24,0=") titia 
4070 PRINTEPRINTEPRINT EL] 
n080 PRINT SPC(6);” >) LENDO A Fats To « RN 
CCPELOCATEO 3,0 

4090 BOSUB Bado 

4400 FOR F=5 TO 44 

4440 LOCATEO, 2, O2PRINTCH 
4420 PRINTSPC(9)5))), SE 
4430 PRINT USINO “HHH”S 
4140 PRINT O (cg 
AL50  PRINTSPC(9)p/===mea 
4160 AS = DSKIS(O,E) 
4470 P = PEEKCAHFISL)+256XPEEK C&HFI52) 
4480 FOR 0=0 10 45 

4490 LOCATEO,5, 0EPRINTCHR$(27)0 105 
4200 IF INKEY5=CHR$(27) THEN 1000 


ERERRBRRRARABRDOS 


apto PRINT “ARQUIVO”; CF-S)RSG+D+L 
4220 PRINT “= e 

4230 REM 

4240 PRINTONOME ay 

4250 Cs mr 


3 


a260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4359 REM 
A360 
4370 
4380 
2,8) 
aaa 
4400 REM 


asao 


4620 REM 
4630 
A640 
a650 
AGO 
4670 
4680 REM 
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FOR H=0 10710 
A=P + 32% + H 
IF PEEK (A)(3O THEN 4340 
PRINTSTRINGS(95,127) 

BOTO 4920 
CS = C6 + CHRS(PEEK(A)) 
IF H=7 THEN Co=C8+".“ 

NEXT H 

PRINT C& 

PRINT/ATRIBUTOS 2” 

AT = PEEK CP + 9246 + 44) 

ATS = RIGHTS("00000000"“+BINSCAT 


PRINT“ “5ATS 
PRINT/HORA, 
X=(P+a2xG+22) 
XI=PEEK(X) 

X2=PEEK (X+14) 
XIS=RIGHTE(“00000000"+BINS(X1), 


X2G=RIGHTS (“00000000 +BINS(X2), 


HSsLEFTS(X25,5) 
M5=RIGHTS(X25, 3) +LEFTS(XLG, 3) 
H=VAL (“88 “+H$) 

M=VAL (CRB CAME) 

PRINT“ CoH5H 


' 
à EEREESE REEERERARERE 


PRINTÍDATA 
HE=PEEKCP + 3246 + 24) 
HI=PEEK (P + 3246 + 25) 
HIG=RIGHTE( "00000000" +BINSCH4), EERMS 


H25=RIGHTS("00000000"+BINS(Ha), 


ALCVRBU4RIGHTS(H2G,5)) 
M=VAL (“&B”+RIGHTSCHIS, 1) +LEF TSC Ria 


A= iRBOAVAL(CRBT+LEFTSCHAS, 7») 
PRINT D; 


Pra2x6+26) 
FEKCH)+256*PEEK (He) 


as9o PRINT/NO DE BYTES: “5 cem 
4700 H=(P+32x0+28) [ic] 
4710 H=PEEK CH) +256%PEEK (H+1)+ rTT] 
AO9EXPEEK (H+2) 165536 | XPEEK (H+3) 
4720 PRINT RIGHT$("0000"+HEXSCH) 4) pri 
4730 REM -—— =— EA 
4740 PRINTOMAPA DA FAT no 
4750 H=PB 
4760 IF H)359 THEN 4839 férct] 
4770 PRINT RIGHT5(000"+HEX5CB% CH) vidaxéa 
Dom, 
az8o IF H)959 THEN 4830 [oa 5] 
4790 H=Bz CH) Es 
4800 IF H)359 THEN 4830 [EErt] 
Bis PRINT RIGHTS(“000"+HEXSCB%CH)), Eid 
58” ms 
a820 Goto 4780 [re] 
AB30 REM ===" E 
ABaO PRINT rea 
4850 PRINT Coaita 
AB6o IF LEFTSC(CS, 1)=CHR$C&HES) THEN baia 
GoSUB 8070 
4870 — LOCATELO,23,0 [o] 
4000 PRINTDIOITE RETURNE“5 [1507] 
4890  AB=INPUTSCL) ESTE] 
4900 NEXT 6 fes Er] 
4940 NEXT F [551] 
4920 LOCATEB 29,0 tozia 
4990 PRINT “5)) TECLE ESPAÇO <((U5 [70] 
4940 IF STRIG(0)=0 THEN 4940 ELSE RUN Madi 
8970 REM Va 
8080 REM Recupera deletados (TaEF] 
B090 REM — memos [1029] 
8100 PRINT, , 4”) Arquivo deletado [5a] 
B1LO PRINT, RECUPERAR (5/N)257 ZT2c] 
8120 BEEP é BEEP E BEEP Espos 
8130 X = PEEKC&HFCAB) : POKE &HFCAB,1 EM 
B140 X$ « INPUTSCÍ) & PRINT X5 Epa 
8150 IF X5()/5” THEN 8220 [555E] 
8150  PRINT,/10 caractere do nomet”; pag 
8170 25 = INPUTSC4) = PRINT Z5 tuéte) 
Bio IF Z5.7A” OR Z5)"Z” THEN Bi6o  Eldd 
B190  POKE (A-10) ASCCZS) [ESTE] 
8200  DSKOS O,F [Ec] 
mato | GOTO B230 [ca] 
8220 IF XS(2/N” THEN 8110 [cc] 
g230 POKE &HFCAB,X = PRINT & PRINT [517] 
8240 RETURN [TT] 
8250 REM Es) 


a 
Er) 


8260 REM leitor de F.f.T. Eis 


8270 REM -— — UE 
8200 AX(O)=BL(O)ZERASE [C42o] 
8290 DIM Ax(539),B%CI5: 
8300 AB=DSKIGCO,1) [ST] 
8310 P = PEEKCaHF351)+ Es 
8320 TO 544 fEES] 
Baao = PEEKCP+F) [ESSE] 
8349 latiad 
Baso (4,2) [FEST] 
Ba6o (8HF951)+256%PEEK (&HF952) Ed 
Bazo TO 27 

Bago 12) = PEEK(P4r) FER 
8399 

8490 6 Ebiaa 
8410 FOR F=0 TO 539 STEP 3 E] 


8420 IF INKEYS=CHR$(27) THEN 1000 

BAJO BX(D) SAXLF)A2S6NCARCE 61) AND HF ERES 

> 

8440 BLCGHI)SCAXCE+L) AND &HFO)/16 + 
AXLFA2)nÃ O 

8450  G=g+ custa 

8460 NEXT F [72EE] 

8470 FOR F=1 TO 340 

8480 TF INKEYS=CHR$(27) THEN 1000 eita 

B490 PRINT RIGHTS(000/+HEXSCF-1) 3) E 

WLFRIGHTS("000”+HEXSCBXCE-4)),9)97 1 


B500 IF F/72 () FN72 THEN 8550 toa 
B510 | LOCATE 10,29, 
8520 PRINT “DIGITE RETURN:”; tagao 
B590 — AG=INPUTSCA) tia 
B540 — LOCATE 0,93,0 [5557] 
8550 NEXT F [Cote] 
8560 PRINT CHR$(27)p"J” 
9570 RETURN [e5F5] 
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8.5 - LEITOR DE SETORES 


O programa a seguir gera na tela um "DUMP” do 
setor de disco especificado pelo usuário. Após 
digitá-lo e conferí-lo. grave-o em formato ASCIl para 
posterior utilização com o comando MERGE 


100 CLEAR 1000,8HCO0O 

105 ONERROR GOTO 100 

110 RESTORE 150 

120 FOR FX=8HC000 TO &HCO2D 


430 READ POKE Fx, VALCC&HV+XS) 

440 NEXT DEFUSRO=&HC000 E 
150 DATA 

160 DATA 

170 DATA 

180 DATA 

190 DATA 

200 DATA C0,03,CD,5C,00,C9,F3,21 

210 DATA 52,45,4E,41,54,4F 120,44 

220 DATA 41,20,53,49,40,56, 41,20 

230 DATA 4F,40,49,56,45,49,52,41 SenD] 
5000 REM 


5010 REM  dump de setores 
5020 REM -— =naa 
5030 PLAY“SOHS000050H” 
5040 SCREEN O : WIDTH 39 
5050 XS=DSKISCO,0) 
5060 EsPEEK (&HF 951) +256kPEEK (&HFI52) 
5070 NS=2564PEEK(E+20)+PEEKCE+20-1)-4 
SoBo S4="” 
5090 PRINT “ENTRE O SETOR E &H “5 
5400 PRINT CHR$(6);CHR$CB); 

110 X5=INPUTSC4) 5 PRINT X$s 
120 IF X$=CHR$(B) THEN 5000 
5130 56=55+X$5 
5140 IF LENCSS)(3 THEN S410 
5150 S5=RIGHTS("00"+5%,3) 
5160 S=VALC"&HV +55) 
5170 IF SCO OR S)NS THEN 5000 
5180 CLS 
5490 PRINT 2 PRINT “ SETOR = 8H/;95 
5200 PRINT : PRINT STRIND$(39,-/) 
5210 LOCATE O,242PRINT STRINGS(39,/-") 
5220 X$=DSKIS(O,S) 
5230 EN=PEEK (HF 9514) +256%PEEK (&HF352) 
5240 FOR F=0 TO 63 
5250 IF INKEYS=CHR$(27) THEN 1000 
5260 IF F/16()FN£6 THEN 5320 


3 
a 


LOCATE 10,23,0 
PRINT “DIGITE RETURN:”; 


NPUTS CL) 
LOCATE 10,23,0 EIS 
PRINT 1d) Cr 
X=USR (0) 


LOCATE 0,19,0 
PRINT RIGHTS(“00“4+HEXSCBF), 3); 
FOR 6=0 TO 7 

Ta60 X=PEEK (EN+BME+6) 

5370 Y$=RIGHTS(/0/+HEXS(X),2) 
n380 PRINT“ “sySs 

5390 NEXT G 

5400 PRINT 1 “s 
5410 FOR 0=0 TO 7 


SOS 


RESERERERDENORRAS 


5420 X=PEEK CEN+BMF+G) 
5430 Y$=CHRSOO 
5440 IF X)31 THEN 5460 ErT 
5450 Y$=CHR$C1)+CHRS (644%) at 
sado PRINT Y5; Ti) 
5470 NEXT 6 [Te] 
5480 — PRINT co 
5490 NEXT F Fasso 
RL E 17) 


DIGITE RETURN 
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6.8 - LEITOR DE ARQUIVOS 


O programa a seguir gera na tela um “DUM” do 
arquivo especificado pelo usuári E 

Note que as linhas entre 100 e 230 são idênticas 
às do programa leitor de setor 

Após digitar e conferir o programa, grave-o em 
tormato ASGII para posterior utilização com o comando 
MERGE. 


100 CLEAR 1000, 8HCODO 

105 ONERROR GOTO 100 

110 RESTORE 150 

120 FOR Fí=8HC000 TO &HCO2ZD 
130 READ X$ : POKE FX, VALC&H/+XS) 
440 NEXT FZ : DEFUSRO=&HC000 

150 DATA 21,00,00,11,2E,C0,01,C0 
160 DATA 03,CD,59,00,01,58,02,21 
170 DATA Fó,C0,11,CE,CO,E 
180 DATA 20,23, 
190 DATA FB,21,2E,C0,11,00,00,01 
200 DATA C0,03,CD,50,00,C9,F3,21 
DATA 52,45,4E,41,54,4F 120,44 
DATA 41,20,53,49, 40, 56,44 


DATA 4F/AC,A9,56,45,49,52,44 
REM dump de arquivos 


SCREEN O à MIDTH 39 
PRINT” ARQUIVOS: ” : PRINT & FILES 
PRINT 3 PRINT 
PRINT “Entre o nome do arquivor”; 
INPUT X$ 
IF Xb="” THEN 1000 
CLs [E 
PRINT 3 PRINT “ARQUIVO 2“5X5 
PRINT : PRINT STRINGS(39,/-2) 
LOCATE O, 21:PRINT STRINGS(99,=") 
OPEN X$ AS Hi LEN=Í 
FIELD Hí,1 AS Y5 
LF=INT(LOF (4)/8)+4 
FOR F=0 TO LF 
IF INKEYS=CHR$(27) THEN 1000 
IF F/16()FM6 THEN 6250 
LOCATE 10,23,0 
PRINT “DIGITE RETURN:“5 
X$=INPUTS (1) 
6230 LOCATE 10,23,0 


E Tm EERER 
E CEE STARR 
: SEER Eledote 
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4240 
4250 
4260 
6270 


ó280 
6290 
6300 
6310 
6320 
6330 
6340 
s350 
6360 
6370 
(644%) 
s380 
6390 
4400 
6410 


6420 NEXT F 


148 


PRINT“ 
X=USROCO) 
LOCATE 0,19,0 
PRINT RIGHTS(000"+HEXSC1+84F),4) 


xg="" Es 
FOR G=FxB+1 TO Fxg+8 SA 
IF G(=LOF(1) THEN 6340 
Pra 
Xb=x6+” 
GOTO 4390 
GET H1,6 
X=ASCCYS) 
IF X)341 THEN X 
IF X(32 THEN X 


S+CHR$CX) 
S+CHR$(1)+CHRS 


ZSSRIGHTS("0"+HEXSCX),2) 
PRINT “ “525 

NEXT 6 

PRINT “Ii “5XS 


ARQUIVO 


DIGITE 


8.7 - PROGRAMADOR DE FUNÇÕES 


O programa apresentado a seguir permite à 
programação das teclas função de forma bastante 
simples. Após digitá-lo e conferí-lo. grave-o com O 
nome ”FUNKEY.BAS”. 

D uso deste progr 
MSXDOS. Nesse caso, 


é mais indicado para o 
alterar o “END” da linha 
640 para ” SYSTEM” e r um arquivo BAT com 
comando "BASIC FUNKEY.BAS”. Assim. estando em DOS 
bastará executar o arquivo BAT para poder programar as 
teclas de função. 


400 CLEAR 500 2: DEFINT A-Z 

110 SCREEN 0,,0 : WIDTH 38 1 KEY OFF 

120 FOR F=1 TO 4 = KEYCF) ON E NEXT F 

130 ON KEY GOSUB 490,650,760,790 

440 PRINTCREDEFINIDOR DE FUNCOES”; 

150 PRINT” — EDITORA ACERHES 

460 PRINTSTRINGS (3 

470 PRINT & PRINT * PRINT 

tão PRINT CHRS(aDp"y 

190 FOR F=í TO 10 

200 PRINT SPE(7); 

210 PRINT “E” 

220 PRINT” 

230 NEXTF 

240 PRINT 1 

250 PRINT 8 

260 PRINT Si 
si 
si 


” 


“Es 
“Ea 
“E3 
“FA 


VOLTA AO DOS“ 
REINICIALIZA” 
DEFAULT BASIC” 
LIMPA TEXTOS? 


270 PRINT 
280 PRINT 
290 X=16 1: Y: 
300 LOCATE X,Y, 
310 AG=INKEYS 
320 IF AS(CHR$(26) THEN 950 

330 IF AS)CHR$C(31) THEN 350 

dão Ageiê ê 

350 A=STICK(O) 

360 IF AXO AND A(3 OR A=B THEN Y=y-4 
370 IF Y=6 THEN Y=16 
380 IF AJ3 AND A(7 THEN 
390 7 THEN 
400 IF Ai AND A(S THEN 
ato X>30 THEN 
420 
430 
440 
aso 


PRERIEOERRESREEEEREREESAEOREERSERE 


3 
q 


460 
azo 
asso 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
400 
ó10 
620 
630 
640 
650 
660 
670 
480 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
Boo 
Bio 
Bo 
Bao 
B4o 
aso 
860 
Bzo 
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VPOKE 40%V+X+1,ASCCAS) 
IF X€30 THEN X=X+í 
GoTO 390 
BEEP : BEEP : BEEP 
FOR F=4 TO 410 
LOCATE 0,0,0 
AS="" 2 FL=9 
X=(F+6)440+17 
FOR Y=X+14 TO X STEP -1 
IF FL=1i THEN 580 


IF VPEEK(Y)=32 THEN 590 


FL=í 
AG=CHRSCVPEEK (VD) +AS 
NEXT Y 
KEY FAS 
NEXT F 
SCREEN O E WIDTH 40 1 KEY 0) 


N 
FOR F=1 TO 4 * KEY(F) OFF & NEXT F 


PRINT CHR$(27):1x4” E END 
BEEP : BEEP 1 BEEP 
GOSUB 790 : LOCATE,,O 
FOR F=0 To 9 
FOR 6=0 TO 15 
A=PEEK (&HFBZE +16MF+6) 
IF A=0 THEN 720 
VPOKE40NCF47)44746,A 
NEXT G 
NEXT F 
LOCATE, +á 
RETURN 
BEEP 5 BEEP 1 DEEP 
DEFUSR=8H3E : S=USR(O) 
GOSUB 450 z RETURN 
BEEP : BEEP 1 DEEP 
LOCATE, O 3 PRINT” “;CHR$(8) 
FOR F=6 TO 9 
FOR 6=0 TO 44 
VPOKE40%(F+7)+1746,92 
NEXT 6 
NEXT F 
LOCATE, 4 
RETURN 


E 
Exmo 
pia 
[o] 
nora 
mam 
tio 
Ee 
[E ] 
Bom 
Estad 
Crista 
ot] 
ta 
bio 
[| 
DT] 
TE] 
tetataçã 
E] 
E] 
esa 
nam 
Eosd 
[o] 


6.8 - CLS EM MSXDOS 


O pequeno programa em BASIC listado a seguir gera 
um arquivo BATCH que limpa a tela ao ser executado a 
partir do MSXDOS. 

Após digitá-to. conferí-lo e gravá-lo. rode-o, 

Dessa forma. deverá ter sido gerado no disco 
presente no drive À um arquivo BAT de nome "CLS.BAT”. 
Esse arquivo deve ser usado a partir do MSXDOS, 
simplesmente digitando GLS e RETURN. 


10 OPEN “AICLS.BAT” AS H$4 Em 
20 FIELD H1, 2 AS AS ma 
30 LSET AS=CHR$(42)+CHR$ (26) ec 
ao PUT Hí,4 [ca] 
50 END ERES 


Após rodar o programa. experimente carregar O 
MSXDOS e comandos 


AvCLS 


A tela deverá ser limpa. 
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6.9 - BEEP EM MSXDOS 


O programs em BASIG listado a seguir gera 
arquivo BATCH que produz um BEEP quando executado à 
partir do MSXDOS. 

Seu uso é semelhante ao do programa CLS.BAT 
gerado na dica 6.G e, portanto. ele deve ser executado 
necessariamente a partir do MSXDOS. 


49 OPEN “AEDERP BAT” AS n4 
8 Piero bicafs AS bags cao) 


dê ENO 


Após rodar O progra 
comandes 


AJBEEP 
Isso deverá produzir um beep, 


carregue o MSXDOS 6 


6.A = "SWAP" DE ARQUIVOS EM MSXDOS 


Estando em MSXDOS, digite a sequência de comandos 
listada a seguir para produzir um arquivo BATCH capaz 
de trocar os nomes de dols arquivos quaisquer. 


AJCOPY CON AZSUAP.BAT 
REN Z4 DADA. 555 

REN X2 %4 

REN BABA. 655 %2 

EerA 


Com o arquivo SWAP.BAT já gravado no disco. você 
poderá usá-lo com a seguinte sintaxes 


AJSWAP arquivoí arquivoz 


Os parâmetros “arquivo!” e “arquivoz” são os 
nomes dos dois arquivos cujos conteúdos se deseja 
trocar. 


152 


ozz-=-Dconmbbprovuninsvhh 


NENENE SE NS NENE NES NS NS NES SIN 


DAMENTO 


As dicas apresentadas neste capítulo são as 
diversas, abordando recursos múltiplos das máquinas 
M5X. Elas não são específicas para nenhum 


periférico, 


relacionadas com o processamento de outros 


Diferenciando o Expert do Hotbit ... 
Escondendo listagens de programas , 
Desativando todos os comandos ... 
Evitando o "ON STOP GOSUB” 
Obtendo o valor de PI 
Tabelas de caracteres 
Sorteio de palavras da 
Sort 


Mapeando variáveis .... 
Mapeando linhas de um programa 
Gerando linhas DATA ..... 
Trocando tokens num programa .... 
Aumentando à velocidade de execução 
"SEARCH", pesquisador de strings ...... 
Recuperando programas apagados com NEN 
Redefinindo mensagens de erros 
Soma sintática 
PSEUDO-RAMDISK -... 
Rotacionando Caracteres ....ccicsrseios 
ntrada com INKEY$ .. 
maiúsculas 
a um caractere . 
Grandes expoentes . 


- 159 
155 
157 


158 
159 


183 
164 
165 


- 166 
: 187 
- 188 
- 169 


171 
173 
175 


. VB 


178 
181 
183 


- 184 
- 186 
= 187 
- 188 
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7.1 - DIFERENCIANDO O EXPERT DO HOTBIT 


Existem muitas diferenças facilmente  identi= 
ticáveis entre o HOTBIT e o EXPERT. À 
ser checada por um programa, quer este 
ou em Linguagem de Máquina, é à 
identificação do fabricante, No Expert, partir do 
endereço 32513 encontramos na ROM a string “Gra d | 


ente”, Basta então checar uma letra dessa mensagem 
que difira do HOTBIT. por exemplo. a letra "G” (código 
ASGII 71). O programa a seguir faz exatamente Isso. 
198 SCREEN,O : WIDTH 39 : PRINT o] 
PRINT” Conteúdo da ROM a partir” Ema 
120 PRINT ” do endereço 32513: “; Elia 
130 FOR F=32513 TO J2534 
140 PRINT CHRSCPEEKCF))s Pg 
150 NEXT, F. Bnioã 
160 x6= “é” oem 
1470 IF PEEK(32513)()74 THEN X$=“não é” Bam 
180 PRINT ; PRINT & PRINT O “sy 
490 PRINT “Portanto, “;X%;” um EXPERT!” hi 
200 PRINT : PRINT Hinos 
RC 1 


BIBLIOGRAFIA RECOMENDADA 
Aprofundando-se no M5X - páginas Be e 83. 
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7.2 - ESCONDENDO LISTAGENS DE PROGRAMAS 


Um programa em BASIC pode estar presente na 
memória do micro sem que o comando LIST ou LLIST faça 
sua listagem aparecer na tela ou na impressora. 

A seguir são apresentados dois pequenos programas 
que exemplificam duas das muitas formas disponíveis 
para se esconder a listagem. 

Em ambos os programas os comandos responsáveis 
pela ocultação das listagens encontram-se na linha 18. 

O primeiro programa deve ser rodado ao menos uma 
vez antes de ser gravado. Feito Isso, o programa deve 
ser gravado no formato compactado. isto é, não pode 
ser 9 jo em ASCIII Para fita cassete deve-se usar o 
comando CSAVE e para disquete deve-se usa comando 
SAVE sem a opção ”,A”| 


PROGRAMA 1 


10 POKE&HBO03, &HFF :POKE&HBO04, &HFF 
20 FOR F=1 TO 200 Ea 
30 PRINT “ESTOU AQUI ESCONDIDO tt1” E 
AO NEXT F 


undo programa pode ser gravado mesmo sem ter 
sido rodado, pois de qualquer forma, do ser carregado 
da fita ou do disquete, su stará visível. 
Para que ela se torne inac ssário que ele 
seja rodado ao menos uma vez após ter sido carregado! 


PROGRAMA 2 
10 POKE&HFFB9, &HD4 EE 
20 FOR F=1 TO 200 
30 — PRINT “ESTOU AQUI ESCONDIDO !!1* ERR 
40 NEXT F urog 


Uma variante mais drástica do programa 2 é obtida 
alterando-se a linha 18 paras 


40 POKE &HFFB9,8HC3 


Com isso, toda vez que o comando LIST for 
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executado. o micro será automaticamente ressetado. 
Para desativar essa “trava” basta comandar: 


POKE &HFF99,HOP 


Note que apenas o comando LIST foi desabilitado, 
ais comandos do BASCIG continuam funcionando 
normalmente. 

Ão invés de ressetar o micro, podemos 
simplesmente evitar a listagem. Acrescente ao programa 
2 as linhas a seguir: 


14 POKE &HEFSA, &H72 
2 POKE &HFFBB,&HO 


7.3 - DESATIVANDO TODOS 08 COMANDOS 


O hook do "Ok" é chamado pelo interpretador 
sempre que o “Ok” val ser mostrado na tela. Isso pode 
servir para evitar que sejam usados quaisquer comandos 
do BASIC MSX. Para produzir um desvio no hook do “Ok” 
basta usar os seguintes comandos: 


POKE &HFFOZ, &HC3 
POKE &HFFOB, &HOO 
POKE &HFFO9, &H00 


Com isso, sempre que o "Ok" for ser impresso na 
tela, o micro será ressetado. Para voltar a operar 
normaimente, basta comandar, 


POKE &HFFOZ,&HC9 


Um exemplo prático dessa “trava” pode ser 
imaginado ao se interromper a execução de um programa 
em BASIC com CONTROL + STOP. Logo a seguir. o “Ok” 
surge na tela, provocando um resset automático do 
micro, 
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7.4 - EVITANDO O “ON STOP GOSUB” 


O MSX permite que se “trave” um programa em BASIC 
após o início de sua execução com as instruções: 


STOP ON é 
ON STOP GOSUB soe 


Usando 
um progr ami 


ssas Instruções nas primeiras linhas de 
após serem executadas, elas farão com que 
sempre que as teclas CONTROL e STOP forem pressionadas 
conjuntamente. a execução seja desviada para a linha 
de número xaxax. 

Isso pode ser muito útil depois que o programa 
está pronto. mas durante sua elaboração pode trazer 
transtornos ao programador. 

O MSX, porém, possui o veneno e o antídoto. Com 
apenas um POKE numa variável do sistema é possível 
acionar o “warm start” do interpretador BASIC pelo 
teclado. Imagine que vamos executar um programa que 
usa as instruções STOP ON e ON STOP GOSUB 
quisermos torná-lo facilmente Interrompível, 
comandar + 


POKE &HFBBO, 4 


Isso fará com que o pressionamento conjunto das 
teclas CONTROL. SHIFT, LGRA o RGRA no Expert (ou CTRL. 
SHIFT. GRAPH e CODE no HOTBIT) Interrompa a execução 
do programa e devolva o comando ao usuário. 

Para desligar o acionamento do "warm start” do 
interpretador basta comandar: 


POKE &HFBBO,O 


Esse recurso não é exclusivo do BASIC. Mesmo 
quando um programa em Linguagem de Máquina 
executado. se o conteúdo de BHFBBO for di 
a execução pode ser interrompida, desde que o programa 
em L.M. não tenha desabilitado a interrupção! 
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7.5 - OBTENDO O VALOR DE PI 


O MSX não possue uma variável reservada para o 
armazenamento da constante matemática X. 

Entretanto, essa constante pode ser facilmente 
obtida e de várias formas diferentes. 

A forma mais imediata é usar a expressão: 


AKATNCI) 
Experimente comandar: 
PRINT AXATNCL) 
O vator de Y surgirá na tela, pois: 
Tan(N/4) = 1 
Atn(tan(X/4)) = Atn(1) 
N/A = Atn(1) 
Y = 4mAtn(1) 
Outra forma de obter o valor dessa constante é 


buscá-lo na própria ROM do micro. Os dois programas 
apresentados a seguir fazem exatamente Isso. 


10 REM PIROM I mom 
2o AH = O [3] 
30 FOR F=0 TO 7 om 
40 POKE VARPTRCAN)+F, PEEK C&H2DA3+F) rr] 
50 NEXT F [ora] 
60 PI = 2xAm ERES 
70 PRINT PI [o] 

RO E 
40 REM PIROM II [5] 
20 FOR F=0 TO 7 Em 
30 AS = AS + CHRSCPEEK (&H2DA34F)) [Er 
AO NEXT F Ec 
50 PI = 2xCUDCAS) Eru 
60 PRINT PI [57] 

DO e 


Após a execução de um desses dois programas. o 
valor de X ficará armazenado na variável Pi. 
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7.6 - TABELAS DE CARAGTERES 


O programa apresentado a seguir gera na tela a 
tabela de caracteres do seu micro. A apresentação é 
feita em duas partes; a primeira contém os caracte 
de 8 a 127 é à segunda os caracteres de 120 a 255. 

Além dos próprios ca es, à tabela contém um 
quadro em branco logo abaixo de cada um del Esses 
quadros estão divididos em três campos e de ser 
preenchidos por você, após a impressão da tabela 
papel. Eles servirão para indicar as teclas a ser 
as para que o caractere correspondente seja 
resentado na tela. Por exemplo, o quadro preenchido 
abaixo corresponde do caractere “M”. 


res 


O campo principal indica a tecla em que o 
caractere se encontra. O campo superior a direita, 
quando preenchido, Indica que a tecla SHIFT deve ser 
pressionada. O campo inferior direito, 
preenchido. indica que a tecla LGRA (ou GRAPH) deve 
ser pressionada. Portanto. para produzir o caractere 


deve-se pressionar as teclas: 

SHIFT + LGRA + 9 (Expert) 
ou 

SHIFT + GRAPH + 9 (Hotbit) 


O campo inferior direito serve para indicar se a 
tecla RGRA (ou CODE) deve ser usada. Nesse caso, ele 
deve ser preenchido. 

Caso o caractere 


possa ser produzido através 
do teclado, sugerimos que não se preencha nada no 
campo reservado para a tecla. Cabe aqui uma crítica 
aos fabricantes, alguns caracteres não acessáveis pelo 
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teclado são símbolos reservados de algumas | inguagens 
de programação. O caractere “til”, por exemplo. é 
usado como operador lógico de negação para bits na 
linguagem G. Isso faz parte do padrão da linguagem e 
próprio compilador MSX-C, da ASG Corporation. o ado 
O usuário de um EXPERT ou de um HOTBIT. entretanto 
terá que fazer algumas “mágicas” antes de consegui 
usar esse operador lógico num programa em G. Outros 
caracteres, como o “5”, por exemplo. são repetidos 
desnecessar lamente, uma vez que o caractere malúsculo 
e o minúsculo têm o mesmo desenho. 


100 * 

iio ! TABLE DE CARACTERES 

130 SCREEN 2,,,,1 

140 OPEN “GRP:/OAS W4 

150 GOSUB 370 =” horizontais 
160 GOSUB 460 :! verticais 
170 GOSUB Só0 :" tracinhos 
180 H= O 


190 GOSUB 250 

200 AS = INPUTS(1) 

210 H= 128 

220 GOSUB 250 :" caracteres 

230 AS = INPUTS(1) 

240 GOTO 180 

250 " 

260 " desenha caracteres 

Bzo * 

280 FOR F=H TO H+427 

290 Lo = (F-HNM6 

300 C = ArF-H-168L 

310 LINECL2KC, 1942280) 
(42%047,20+22%L),4,BF 

320 PSET (1240, 194228L),1 


caracteres 


339 IF F<32 THEN PRINT Hí,CHR$(1)+ 
CHRSC64+F) 

340 IF F)34 THEN PRINT Hí,CHRSCF) 

350 NEXTF 

360 RETURN 

azo | 

380 " linhas horizontais 

Boo * 


400 FOR F=0 TO 487 STEP 44 
40 IF F/20OFN2 THEN LINEC(39,F) 


=(45,F) 
420  LINE(45,F)-(238,F) 


430 


440 
450 
A60 
470 
a89 
avo 
500 
510 
520 


530 
540 
550 
560 
570 
500 
590 
400 
410 
s20 
430 
440 
650 
460 
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IF F/22=FN22 THEN LINE(4S,F+10) 


-(238,F+10) 
NEXT F 
RETURN 
1 linhas verticais 
FOR F=33 TO 298 STEP 42 
IF F)33 THEN LINE (F,0)-(F,12) 
LINECF, 42)-(F, 107) 
IF F)35 THEN CINECF+4,42)- 
€F+1,187) 
NEXT F 
LINE (F-11,0)-(F-41,42) 
RETURN 
! desenha T 
FOR F=45 TO 226 STEP 42 
FOR G=22 TO 176 STEP 22 
LINECE+6,6)-(F+6,6+10) 
LINECE+6,Gr4)-(Fr12, +47 
LINECF+9/644)-(F4+9,6+10) 
NEXT 6 
NEXT F 
RETURN 


7.7 - SORTEIO DE PALAVRAS DA ROM 


O programa apresentado a seguir sorteia uma 
palavra reservada do BASIC MSX a partir da digitação 
de alguma tecla pelo usuário. Você pode usá-la em 
outros programas para obter palavras ao acaso. 


400 " rotina de sorteio Em 
110 AS=INPUTS(L) 5 BEEP rr] 
120 A=65536 |XRNDC(-TIME) [ST] 
130 AX=1634RND(A)+i a] 
120 EN=14962 2 A$=" : 1=65 : C=0 [EE] 
150 AS=AS+CHRSCT) mea 
160 EEKCEN) 2 Q=PEEKCEN+Ã) Et] 
470 PS=CHR$(P) Boi 
180 IF P(128 THEN AS=AS+PS = GOTO 240 Es 
190 AS=AS+CHRSCP-128) [2] 
200 EN=ENHA E C=C+1 [E] 
240 IF C=A% THEN PRINT AS : RUN ES] 
p20 IF PEEK(EN+1)=0 THEN 240 tocas 
30  AB="" 2 AB=AS+CHR$CI) Emas 
240 IF PEEK(EN)()O THEN 280 Bm 
250 Ab=/7": I=1+4 2 Q8=CHR$CI) Exma 
260 IF Qg="J” OR Q8="0" THEN 280 rei 
270 Ab=Ab+AS trad 
280 E “4 amas 
290 IF ENC=15649 THEN 160 tosa 


BIBLIOGRAFIA RECOMENDADA, 
Coleção de Programas para MSX v.2 - páginas 58 a 55. 
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7.8 - SORTEIO DE PALAVRAS EM LINHAS “DATAS” 


O programa apresentado abaixo sorteia uma palavra 
entre uma coleção delas inseridas em linhas 
Experimente acrescentar ao programa outras 
DATA"s com mais palayras, Note que é essencial que 
última palavra seja “FIM” para que O programa pare 
tentar ler mais palavras. 


100 " rotina de sorteio EE 
110 AS=INPUTS(1) & BEEP sRESTORE tea 
120 5536 !XRND(-TIME) 3 FX=0 Einiao 
190 READ AS = IF A$="FIM” THEN 150 Ea 
140 Fx=FZ+1 : GOTO 130 mom 
450 AX=FLXRNDCA)+1 5 RESTORE [7] 
160 FOR Fk=í TO AX Exis 
170 READ AS Extri 
180 NEXT FX Em 
190 PRINT AS Exiaa 
ROO GOTO 110 Emis 
1000 REM Elst 
t010 DATA BABA, CACA, DADA, FAFA, GAGA, HAHA 
1041 DATA JAJA,KAKA,LALA, MAMA, NANA, PAPA Tela 
1012 DATA PAPA,RARA, SASA, TATA, UALUA, VAVA Elia 
1013 DATA XAXA,ZAZA, NICK, GUTT, MINHOLETA Eli 
1020 DATA FIM 

O 2 S 
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7.89 - MAPEANDO LINHAS REM 


O programa apresentado a seguir vasculha a 
memória RAM do micro a partir de &MB000 a procura de 
pseudo-instruções REM. Ao encontrar no programa um REM 
(ou *), a linha em que ele se encontra terá seu número 
apresentado na tela. 

Após digitá-lo, grave-o no formato ASCII e com à 
numeração bem alta (como usamos a seguir). Para 
usá-lo, faça um MERGE com o programa que estiver n 
memória e comandos 


RUN 65100 


65100 REM 

651410 REM PROCURA LINHAS REM 
65120 REM 

651430 PRINT CHR$(12) 
65440 EI = 32769! 

65450 Bi = PEEK (EI) 
65160 B2 = PEEK (EI + 4) 
65170 B3 = PEEK (EI + 2) 
65180 D4 = PEEK (EI + 3) 
65190 PL = Bi + 256482 
65200 NL = + 256484 


AND B2=0 THEN 350 


65230 PRINT! NUL 
65240 PRINT” CPL PL - EI 
65250 PRINT” EPL =p" AH HEXSCPL) 
65260 FOR F = CEI + 4) TO (PL = 2) 
65270 IF PEEK(F)<)8HBF THEN 940 

65280 PRINT, “8HCsHEXSCF)5” =) REMCS 
65290 PRINT CHR$(7) 

65900  F=PL-2 

65940 NEXT F 
65420 PRINT” 


65330  EI=PL 
65340 GOTO 150 
65350 END 


BIBLIOGRAFIA RECOMENDADA: 


Aprotundando-se no MSX - capítulo 1. 
Avançada em MSX - capítulo 1. 
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7.A - MAPEANDO VARIÁVEIS 


O programa apresentado a seguir vasculha 
memória RAM do micro a partir de &HBG00 a procura de 
uma dada variável. Se ela existir no programa, a linha 
em que ela se encontra terá seu número apresentado na 
tela, 

Após digitá-lo, grave-o no formato ASCII e com 
numeração bem alta (como usamos a seguir). Para 
usá-lo. faça um MERGE com o programa que estiver na 
memória e comandes 


RUN 65000 


65000 REM 
65001 REM MAPA DE VARIAVEIS 
65002 REM 
65003 PRINT CHR$(12) 
65004 POKE &HFCAB, 4 
65005 INPUT/VARTAVEL” sus 
65006 E 327691 
65007 B PEEKCED)  : B2 = PEEKCEI + 4 
B 
P 
I 


, 
= PEEKCEI+2) 5 B4 = PEEKCEI + 3 Bo 


I 

í 

$5008 3 

anoss, L = Bi + 256482 : NL =B3+ 256% biiid 
65010 IF B1=0 AND B2=0 THEN 65024 

65014 IF PEEKCEI+A 

65042 IF PEEKCEI+S 


HBF THEN 65022 
HBF THEN 65022 


65049  L$m"? 2 Ip=0 

65044 FOR F = (EI+4) TO (PL-2) 
65045 IF PEEK(F)=34 THEN IP=(IP4+4) 
65016 IF IP/2<)IPN2 THEN 65046 
65047 L$ = L6 + CHRS(PEEKCF)) 


65018 NEXT F 

65049 — L=INSTR(LS, VS) 

65020 IF L=0 THEN 65022 

65021 PRINT “))“;STRSCNLDA” (4”, 
65022 EI=PL 

65023 BOTO 65007 

65024 POKE &HFCAB,O 

65025 END 


REGRRRERRERESEEE 


BIBLIOGRAFIA RECOMENDADA: 


Aprofundando-se no MSX - capítulo 1. 
Programação Avançada em MSX - capítulo 1. 
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7.8 - MAPEANDO LINHAS DE UM PROGRAMA 


O pequeno programa listado a seguir mapeia as 
linhas de um programa em BASIC presente na memória do 
micro. Ele deve ser gravado em ASCII para poder ser 
emendado (com o MERGE) ao final dos programas que se 
deseja mapear, 

Para usá-lo, após ter feito o MERGE, basta 
comandar + 


RUN 60000 


Os dados serão apresentados em 4 colunas. A 18 
conterá o n9 da linha; à 2a conterá seu endereço 
inicial; a 38 5 eço final e a 420 comprimento 
da Linha em byt 


60000 REM MAPEADOR DE LINHAS 
60040 EPL=327691 
40020 PRINT/LINHA E.I. E.F Comp. 


40030 PRINT” -——: 


1 
pum 
[io] 
[= 
60040 NL=PEEKCEPL+2)+256XPEEK CEPL+3) [e] 
60050 PRINT Ni » CaHEXSCEPL);” a ls Exa 
a) 
Era 
Bo 
[ed 


40060 C=EPL+12EPL=PEEK (EPL) +256MPEEK(C) 
40070 PRINT HEXSCEPL=4)2" =) “GEPL-C+ 
40080 IF PEEKCEPL)=0 THEN END 

60090 GOTO 60040 


BIBLIOGRAFIA RECOMENDADA 


Aprofundando-se no MSX - capítulo 1. 
Programação Avançada em MSX - capítulo 1. 
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7.6 - GERANDO LINHAS DATA 


Multas vezes nos deparamos com situações em que 
necessitamos armazenar os bytes de uma reg da 
memória em linhas DATA. O programa apresentado a 
seguir gera na tela. na impressora. em disquete ou em 
cassete, as linhas DATA correspondentes a uma certa 
região da memória. 

ho ser executado o programa pede a introdução do 
número da primeira linha DATA a ser gerada e Os 
endereços inicial e final da área da memória a ser 
tida 


Na forma como está o programa a seguir 
listagem das linhas DATAS é apresentada na tela. Para 
fazer com que ela seja enviada à impressora, ao driv 
ou ao cassete, dev torar à linha 138, 
substituindo o nome "GRT;” pelo do dispositivo 
desejado. 


100 REM GERADATAZ 
110 REM 

120 CLEAR 1000 

190 OPEN“CRTEDATAS” FOR OUTPUT AS W4 
140 DEFSNG A-Z 

190 LS do 

160 INPUT“Entre à linha inicial“;L 
170 IF L(O OR L>650001 THEN 160 

180 INPUT”Entre o endereço inicial”;1$ 
190 1 = VALCCRHV4IS) 

200 IF IX8HB000 OR ID&HFFFF THEN 190 
210 INPUT“Entre o endereço final“;F$ 
220 F = VALC/RHV4ES) 

230 IF FCI OR F>&HFFFF THEN 220 

240 LS = L6 + STR$C(LI+” DATA ” 

250 FOR N=I TO F 

260 XS = “00” + HEXSC(PEEK(N)) 

270  X% = RIGHTS(XS,2) 

280 X=x+4 

290 Lg =L$+x$ 

300 IF X/8()XNB THEN 350 


310 PRINT Hí,L5 
320 L=L + 10 
330 L$ = STR$(L)+ DATA ” 


340 GOTO 360, 
350 Lg =L6 +,” 
360 NEXT N 


370 IF RIGHTSC(L$,4)45",” THEN END 
380 L$ = LEFTS(L$,LENCLS)-4) 
390 PRINT H4,L5 
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7.D - TROCANDO TOKENS NUM PROGRAMA 


Entrentar o problema de transformar todos os 
comandos de um programa em outro comando não é uma 
tarefa das mais agradáveis. principalmente quando O 
programa é grande. 

A rotina a seguir coloca um programa em Linguagem 
de Máquina a partir do endereço EHCO0O. Quando 
executada ela varre a órea do programa em BASIC 
trocando os códigos Iguais ao contido no endereço 
BHCO9G pelo código contido em &HCOSO. 

Você pode usar O programa abaixo como uma rotin 
em BASIC, usando-o com um “MERGET, ou gravá-lo em 
binário e “pokear” os códigos da tokens manualmente 

Os códigos de todas as tokens pode, ser 
encontrados no livro “APROFUNDANDO-SE NO MSX”, n 
páginas 67 à 71 ou usando o programa da figura 1.4 do 
Livro “PROGRAMAÇÃO AVANÇADA EM MSX”, nas páginas 11 e 
tê. 


Lembre-se que as tokens de funções tem sempre O 
bit 7 setado antes de serem Inseridas num programa 
portanto, se você desejar substituir tokens de funções 
deverá antes acrescentar HBO do seu código, Pol 
exemplo, para substituir a token da função seno (&HOS) 
pela da função cosseno (HOC) você deverá “poksar” os 
valores 8HB9 e SHBC respectivamente nos endereços 
BHCONG o BHCOSB. 


BOOOO TRENS 

50040 "x BY THE DOCTOR LUZ x 

BOODO Pao m see dese dee II 

50030 FOR L=8HC000 TO &HCO9F 

50040 READ AS:POKE L,VALCCRHV+AS) 

50050 NEXT 

50060 DEF USR=8HCO0O 

50070 PRINT"RODAR PROGRAMA 77 

50080 AG=INPUTSC1) 

50090 IF Ab="5" THEN GOTO 50100 ELSE END) 
50400 INPUT/CODIGO DA TOKEN“;A 

50410 INPUT/NOVO CODIGO“;B 

50120 POKE &HCO9C,A 

50130 POKE &HCO9B,B 

50140 A=USR(O) 

50150 LIST 

50160 DATA DD,24,FF,7F,DD,23,21,73 
50170 DATA CO,DD,7E,00,06,14,BE,28 ELE] 
50180 DATA 21,23,23,10,F9,DD,7E,00 

50490 DATA FE,22,28,39,5F ,3A, 90 CO 
50200 DATA DD,BE,00,20,DF ,3A,9B,CO 


EE 


a 
o 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DD,77,00,7B,FE,84,28,36 
18,D2,DD,7E,00,FE,00,20 
0E,DD,7E,01,FE,00,20,07 
DD,7E,02,FE,00,28,09,23 
7E,47,DD,23,40,FC,18,B4 
DD,22,9D,C0,C9,DD,23,DD 
ZE. 00,FE,16,20,h6,FE,00 
20,F9,DD,28,18,9E,DD,23 
DD,7E,00,FE,00,20,F7,DD 
28,18,91,00,04,08,03,0€ 
03,0D,03,0E,03,0F,02,11 
91,12,01,13,01,14,01,15 
01,16,01,17,01,10,01,19 
01,18,01,10,03,14D,04,4F 
98, FF,02,00,00,00,00 


BIBLIOGRAFIA RECOMENDADA: 
Aprofundando-se no MSX - capítulo 2. 


Programa 
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Avançada em MSX - capítulo 1, 


7.E - AUMENTANDO A VELOCIDADE DE EXECUÇÃO EM BASIG 


Para ilustrar alguns métodos de se aumentar 
velocidade de execução de programas em BASIC vamos 
usar uma pequena rotina que calcula os números primos 
compreendidos entre 2 e 1000. Rode o programa a seguir 
e anote o tempo que ele levou para rodar. 


100 TIME=0 E] 
120 DIM A(2000) ET 
190 FOR 1=2 TO 1000 rr] 
140 IF A(I)(30 THEN GOTO 190 [rr] 
150 PRINT I : P=P4s [re] 
160 FOR N=2xI TO 2000 STEP 1 E] 
170 ALN)=S 
180 NEXT N 
190 NEXT 1 [=] 
200 PRINT 3 PRINT “TEMPO:”;TIME/60 [TE] 
2410 END [=] 

Rd 


O M5X trabalha normalmente com números em dupla 
precisão (14 casas) e faz os cálculos em BCD pa 

reduzir ao máximo os erros de arredondamento, Com 
Isso, ele perde mais tempo que outros micros menos 
Intelig » como os APPLE'S, Os TR$-80, etc. Mas 
podemos fazer com que ele use precisão simples (6 
casas), uma vez que as operações envolvidas são ape 
a adição e a multiplicação de números Intelros. Isso 
faz o programa ficar ligeiramente mais rápido, 
Experimente acrescentar ao programa anterior a linha à 
seguir. rode-o novamente e anote o tempo de execução. 


140 DEFSNO AZ 


Em nosso caso específico, sabemos que os dados 
manipulados pelo programa são todos inteiros. Todos os 
números primos são inteiros. Sabendo disso, 
fazer com que o MSX diminua a precisão 
cálculos um pouco mais, Altere linha 1 
mostrada a seguir e rode vez o programa. Você 
deverá obter um tempo de execução bem menor. 


140 DEFINT A-Z 
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isso ainda não é tudo. Existem alguns 
procedimentos que o micro faz ao executar pel 
uma linha do programa que não são 
la for executada outras vezes. Altere q 
programa, deixando-o como mostrado a seguir e rode-o 
mais uma vez, 


O TIME=0:KEYOFF:LOCATEO,0,0 
DEFINTA-Z:POKE&HF3B1, 3: DIMA(2000) 
FORI=2T0100 

IFALI)()OTHENZ 

PRINTIEP=P+1 

FORN=24ITO2000STEPI 

ACN)=S NEXT 

NEXT 

PRINTIPRINTOTEMPO:”; TIME/60 

END 


soNandwna 


Além da renumeração, da supressão dos espaços em 
branco e da compactação de várias Instruções pá 
linha. o programa foi otimizado com mais algum 
Instruç 

A linha O, além de apagar as teclas de funções 
apaga definitivamente o cursor da tela 

Na linha 1, a Instrução POKE na posição &HF3B1 
faz com que à tela tenha apenas 3 IInhas! Isso redu 
stante o tempo de "SCROLL" da tela quando ela j 
tá chel 

Por fim, as Instruções NEXT sem especificação do 
parâmetro nas linhas 6 e 7 também reduzem um pouco O 
tempo de execução. 

Se você tiver um APPLE, um TR$-B8 ou mesmo um PC. 
experimente rodar neles um programa equivalente é 
compare o tempo gasto com o do MSX. À não ser no caso 
de um PC com clock de B Mhz, o MSX será o mais 
rápido! 


BIBLIOGRAFIA RECOMENDADA, 


Curso de Basic MSX v.1 - páginas 37 a 38. 
Aprofundando-se no MSX - capítulo 1. 
Programação Avançada em MSX - capítulo 1 
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- “SEARCH”, PESQUISADOR DE STRINGS 


apresentado a seguir gera, a partir do 
. uma rotina em Ling Máquina 
que pode ser chamada pelo BASIC vasculhar a 
memória a procura de uma uência de caracteres 
fot . Após gerar a rotina em L.M.. o programa à 
emita ou em disco com o nome SEARCH ou 
SS EARCALBINE, 
a testar O program 
executado. comandes 


após ele ter sido 


PRINT, HEXSCUSROC”A L E PH) 


string “A L E PH” será 
ela for 


er salvo O program 
lo da memória que mesmo 
rá funcionando. Para 
sempre a mesma: basta chamar à 
como parâmetro a string a ser procurada. 


Cem BASIC, pode 
sim a rotina 
à sintaxs É 
USRO passando 


10 FOR FX=8HE000 TO &HESL4B 

20 READ AS E POKE FX, VALCV&HT+AS) 
ão NEXT FX : DEFUSRO=ÉHEO00 

ao BRAVEMSEARCH. « BIN”, &HE000, &HE14B 
100 DATA FE. 03,C0,D5, 41, AD, EOr2t 
110 DATA 4C,E0,96,00,01,FF,00 
120 DATA B0,D1,06,00,18,4F1C: 
130 DATA 14,6F 113, 18,67, 14,4! 
140 DATA ED,B0,21,00,00,01 
150 DATA 14, 4C, EO, 1A, ED, BS 
180 DATA 09,13,14,87 28,09 ,ED, AL 
470 DATA E0,28,F6,1B,09,1 
180 DATA C1/ED;42,22/FB,F7,3E,02 
190 DATA 32,63,F6,09,41,42,56,41 
200 DATA 42,56,53,00,00,00,00,00 
210 DATA 00,00,00,00,00,00,00,00 
520 DATA 00/00/00/00,00,00,00,00 
230 DATA 00,00,00,00,00,00,00,00 
240 DATA 00,00,00,00,00,00,00,00 
250 DATA 00,00,00,00,00,00,00,00 
580 DATA 00:00/00,00,00,00,00,00 
270 DATA 00,00,00,00.00,00,00,00 
280 DATA 00,00,00,00,00,00,00,00 
290 DATA 00,00,00,00,00,00,00,00 
500 DATA 00/00/00/00,00,00,00,00 


q 
a 


310 DATA 00,00,00,00,00,00,00,00 
320 DATA 00,00,00,00,00,00,00,00 
330 DATA 00,00,00,00,00,00,00,00 
340 DATA 00,00,00,00,00,00,00,00 
350 DATA 00,00,00,00,00,00,00,00 
360 DATA 00,00,00,00,00,00,00,00 
370 DATA 00,00,00,00,00,00,00,00 
380 DATA 09,00,00,00,00,00,00,00 
390 DATA 00,00,00,00,00,00,00,00 
400 DATA 00,00,00,00,00,00,00,00 
410 DATA 09,00,00,00,00,00,00,00 
420 DATA 00,00,00,00,00,00,00,00 
430 DATA 00,00,00,00,00,00,00,00 
440 DATA 00,00,00,00,00,00,00,00 
450 DATA 09,00,00,00,00,00,00,00 
460 DATA 00,00,00,00,00,00,00,00 
470 DATA 00,00,00,00,00,00,00,00 
480 DATA 00,00,00,00,00,00,00, 60 
490 DATA 00,00,00,00,00,00,00,00 
500 DATA 00,00,00,00,00,00,06,00 
510 DATA 00,00,00,00,00,00,00,00 


Experimente, após ter rodado o progr 
desligar o micro, ligá-lo no! 


ao menos 
, carregar 


o programa SEARCH gravado em binário para a memória do 
micro e comandar: 
DEFUSRO=&HEO0O = ? HEXSCUSROCcolor”)) 
Você deverá obter como resultado o endei da 


ROM onde existe essa palavra. 


174 


7.6 - REGUPERANDO PROGRAMAS APAGADOS COM NEW 


O programa apresentado a seguir deve ser digitado 
e gravado. Ao ser executado ele gera e grava um 
programa em Linguagem de Máquina capaz de recuperar 
programas em BASIC apagados da memória do micro com o 
comando NEW. 

Existem alguns raros casos em que à rotina nã 
funcionará, porém certamente esse casos constituem 
menos de 1% das situações reais. 

Para testar o programa. após tê-lo digitado. 
gravado e executado, comande NEW. 

O programa foi “apagado” da memória. NÃO FAÇA 
NADA AINDA para evitar perder dados que ainda estão na 
memória do micro (apesar de ele não saber disso)! A 
primeira coisa a ser feita nessa situação é carregar o 
programa em Linguagem de Máquina gravado pelo programa 
em BASIC que você digitou. Comande: 


BLOAD“WENNEUBINZ,R 


Isso será o suficiente para recuperar seu 
programa em BASIC. 


100 FOR F=8HE000 TO &HEOI2 

140 READ ASIPOKE F.VALCCAHV ras) 
120 NEXT F 

130 BSAVE“MENNEW. BIN”, &HE000, &HEOI2 
149 END 
150 DATA 
140 DATA 
170 DATA 
180 DATA 
190 DATA 23,22 ,C2,F: 
200 DATA Có,F6 
210 DATA FB,C9,FF,00,00,00,00,00 


BIBLIOGRAFIA REGOMENDADA, 


Aprofundando-se no MSX - capítulo 1. 
Programação Avançada em MSX - capítulo 1. 


175 


7. - REDEFININDO MENSAGENS DE ERROS 


O programa apresentado a seguir permite 
redefinição das mensagens de erro do BASIC. Na 
verdade. ele acrescenta novas mensagens às j 
existentes. Apenas a título de exemplo, usamos 
mensagens do tipo "MENSAGEM 1”, "MENSAGEM 2”, etc 
Entretanto você pode criar suas próprias mensagens 
desde que sempre as termine pelo caractere “p 


200 FOR G=1 TO LENCAS) 

210 POKE &HDOOO+F,ASC(MIDS(AS,6,1)) 
220 Fa=p+4 

230 NEXT 6 

240 GOTO 180 

250 POKE &HDO0O4F, 255 

260 DEFUSR=8HDO0O 

270 S=USR(O) 

280 BSAVE“ERROS”, &HDOVO, &HDOOO+F 
290 END 

300 REM 

310 REM DADOS 

320 REM 

330 DATA 11,0D,DO,21,FD,FE, 36,03 
340 DATA 23,73,23,72,09,E5,F5,C5 
350 DATA 21,3D,D0,7E,293,FE,FF,28 
360 DATA 16,FE,23,20,F4,0D,20,F3 
370 DATA 7E,23,FE,FF,28,09,FE,23 
389 DATA 28,05,CD,A2,00,18,F4,3E 
390 DATA 0D,CD,A2,00,3E,0A,CD,AZ 
400 DATA 00,C1,F1,E1,09,23 


100 REM em 
140 REM ERROS ALTERNATIVOS eim 
120 REM Em 
130 CLEAR 200, &HDOVO Em 
140 FOR F=0 TO 61 
450 READ AS 2 A=VAL(&HU+AS) 
160 POKE &HDO00+F, A TS] 
170 NEXT F Eita 
180 Ea 
190 am 

Exa 

Eid 

Exa 


440 DATA “MENSAGEM 4 ne 
420 DATA “MENSAGEM 2 ne 
430 DATA “MENSAGEM 3 ne 
440 DATA “MENSAGEM 4 He 
450 DATA “MENSAGEM 5 ne 
460 DATA “MENSAGEM 6 ne 
470 DATA “MENSAGEM 7 LA 
4B0 DATA “MENSAGEM 8 "r 
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ago 
500 
510 
520 
530 
540 
550 
E 
570 
580 
590 
600 
610 
s20 
630 
640 
650 
460 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSADEM 
“MENSADEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
“MENSAGEM 
EEN 


vozzracnIonmonuDO 


BIBLIOGRAFIA RECOMENDADA, 
Aprotundando-se no MSX - páginas 71 a 76 e Be 


ne [E] 
ne [E] 
"e [EE] 
"e Ema 
ne E 

E Eua 
ne Esta 
nr Ea 
E 
ne [ET] 
ne na 
"e Eos 
"e 
"e rm 
ne [ET] 
ne [E] 
[a 

Erxsem 
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7.1 - SOMA SINTÁTICA 


Os erros mais frequentes cometidos durante a 
transcrição de programas listados para a memória do 
computador são devidos a digitação incorreta por parte 
do leitor. Raras às vezes em que o erro é devido à 
falhas de Impressão e mais raras ainda as ocasiões em 
que o programa está resimente com algum erro lógico. 

Mesmo considerando o fato de que todos os 
programas apresentados neste livro estão em BASIC 
são, em sua maioria curtos e de fácil digitação, a 
probabilidade de falhas durante a digitação é algo 
considerável. Uma simples vírgula substituida 
involuntariamanto por um ponto pode por todo um 
programa a perder, 


Pensando gm como diminuir” a ocorrência de erros 
de dig lesenvolvemos uma pequena rotina em 
Linguagem de Máquina capaz de checar o programa na 


memória. Antes de continuarmos, digite o programa a 
seguir exatamente como o listamos abaixo, sem tirar 
nom por absolutamente nada a tomando o máximo cuidado 


a não cometer erro algum. Depois, salve 0 programa 
em disco ou em Fita casseta 


100 REM-—— 
110 REM SOMA SINTÁTICA 

120 REM Rubens Jr. 
130 REM-———. 
140 FOR F=8HE000 TO &HEOBS 

150 READ AS 2 POKE F,VALC“&HV+AS) 
160 NEXT F 5 DEFUSRO=8HE000 

izo BSAVE“SOMSIN. BIN”, &HE000, &HEOBS 
190 
200 DATA 3E,00,32,84,E0,21,00,00 
210 DATA 22,80,E0,2A,76,Fó,CD,F9 
220 DATA 10,CD,63,E0,7A,B3,CA,4B 
239 DATA E0,ED,53,82,E0,CD,63,E0 
240 DATA CD, 68,E0,28,2B,CD,7E,EO 
259 DATA 23,E5,ED,5B,B2,E0,18,B7 
260 DATA ED,52,E1,20,F0,2A,B0,E0 
270 DATA CD,94,E0,3E,0D,CD,A2,00 
280 DATA 3E,0A,CD,A2,00,2A,B2,E0 
290 DATA C3,0E,E0,21,A3,E0,CD,78 
300 DATA 66,2A,80,E0,CD,94,E0, 3E 
310 DATA 02,32,63,F6,2A,B0,E0,22 
320 DATA FB,F7,C9,5E,23,56,23,09 
330 DATA ES,EB,CD,12,94,3E,09,CD 
340 DATA A2,00,3E,3D,CD,A2,00,3E 
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350 DATA 09,CD,A2,00,E1,C9,5E,16 
360 DATA 00,3A,B4,E0,3C,32,B4,EO 
370 DATA AB, SF ,E5,2A,B0,E0,19,22 
380 DATA BO,EO,E1,C9,22,FB,F7,3E 
390 DATA 02,92,63,Fó,CD,22,37,CD 
400 DATA 78,66,09,0D,0A,0D,0A,54 
440 DATA 4F,54,41,40,09,9D,09,00 
420 DATA 00,00,00,00,00,42,41,4F 


Com o programa já gravado, comande RUN. Você 
deverá obter na tela uma listagem terminada com a 
mensagem, 


TOTAL = am 


Se I8S0 não ocorreu, carregue o programa SOMA 
SINTÁTICA (previamente gravado) para a memória do 
micro e confira-o novamente, pois há alguma coisa 
errada nele. 

Após obter o valor correto para a soma TOTAL do 
programa, grave-o definitivamente 

Um programa em BASIC é armazenado na memória do 
mioco como uma sequência de bytes. A rotina que gera à 
SOMA SINTÁTICA lendo a memória e para ca 
do programa em BASIC calcula uma soma "ponderada! os 
bytes que a constituem. O valor com que cada byte 
participa na soma de cada linha depende de seu próprio 
valor e da posição que ele ocupa na linha, Pa 
verificar isso. comando NEW e introduza a linha à 
segulrs 


10 PRINT “AMOR” 


A seguir, comande: 


Você deverá obter a soma RNA: ::sm 
Agora, altere a Linha 10 paras 

10 PRINT “ROMA” 
Comande mais uma vez: 


88 = USRO(O) 
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A soma TOTAL se alterou para Madi e isso 
conteceu apesar de as duas linhas terem exatamente os 
mesmos caracteres, j 

Quando o programa tem várias linhas. o valor 
total de cada uma é adicionado na soma da linha 
subsequente. Desse modo, a soma total de um programa é 
sempre Igual a soma indicada em sua última linha e 
quando um erro é cometido numa determinada linha, as 
somas de todas as linhas subsequentes são alteradas. 

Note. porém que a rotina não é infalível, 
Calcule. como contra-exemplo. as somas TOTAIS das duas 
Vinhas abaixo: 


10 PRINT/ACD” 


40 PRINTCABO” 


Apesar de as linhas serem diferentes, suas SOMAS 
iguais! 
Quase todos os demais programas deste livro estão 
acompanhados de sua soma TOTAL, obtida através do 
programa SOMA SINTÁTICA rodando num MSX EXPERT versão 
«1. Se 0 seu MSX for de outro tipo, a soma TOTAL dos 
programas poderá resultar diferente da que 
apresentamos, pois alguns caracteres (como o G, por 
exemplo) podem ter códigos diferentes. Cuidado, 
portanto. se esse for o seu casol 

Outra situação peculiar ocorre com programas que 
possuem GOTO ou GOSUB. Se calcularmos a soma total 
desses programas antes de executá-los e depois de 
executá-los obteremos valores diferentes. pois O 
interpretador BASIC da ROM do MSX usa uma técnica de 
otimização que altera as Linhas com GOTO ou GOSUB após 
a primeira passada por elas (veja as páginas 16 e 17 
do livro PROGRAMAÇÃO AVANÇADA EM MSX para maiores 
detalhes sobre essa técnica). 

Neste livro. as somas TOTAIS apresentadas foram 
sempre calculadas ANTES de se executar o programa 
sequer uma única vez! 


180 


7.4 - PSEUDO-RAMDISK 


O programa apresentado a seguir permite o uso dos 
32 Kbytes de RAM não disponíveis para o BASIC (entre 
os endereços O e AHBOQO). Após digitá-lo e gravá-io, 
certificando-se de que ele esteja correto, rode-o. Com 
isso uma rotina em Linguagem de Máquina estará pronta 
para ser usada com outros programas. desde que ele 
não se sobreponham à área de memória entre AHDÉ 
8HDO76. 

A rotina permite que os programas presentes na 
RAM disponível do micro sejam passados para a RAM 
oculta e posteriormente recuperados de volta para à 
RAM disponível. 

Para passar da RAM ativa para a RAM oculta 
deve-se comandar: 


POKE O USROCO%) 


Fazendo Isso você pode carregar outro programa na 
memória e usá-lo normalmente, pois o programa anterior 
estará “salvo” na RAM oculta 

Para recuperar o progr 
RAM ativa deve-se comandar: 


POKE O, USROCIZ) 


Com Isso o programa “salvo” estará novamente 
presente na RAM ativa do micro. 

Além desses recursos podemos também “trocar” o 
conteúdo da RAM ativa e da RAM oculta. Se temos um 
programa PROGRI “salvo” na RAM oculta e um outro 
programa PROGR2 presente da RAM ativa. para trocá-los 
de posições devemos comandar: 


ja da RAM oculta para a 


POKE O, USROC2% 


Faça alguns testes com programas curtos para se 
habituar aos comandos. 


100 SCREEN O:WIDTH 39ECLEAR 200, &HDOOO 
110 FOR F=8HD000 TO &HDO76 

120 READ ASIPOKE F,VALCC&HU+AS) 

130 NEXT F 

140 DEFUSRO=&HDOGO 

150 DATA F3,F5,C5,D5,ES,ED,79,FE 

160 DATA F3,FE,02,20,5E,23,23,7E 

170 DATA FE,00,20,0B,21,00,80,11 

180 DATA 00,00,CD,53,D0,18,43,FE 


190 DATA 01,20,08,21,00,00,11,00 
200 DATA B0,CD.53,D0,18,94,FE,02 
210 DATA 20,39,CD,53,D0,04,FF SF 
220 DATA 11,00,00,21,00,80,4A,32 
230 DATA 75,D0,7E,12,3A,75,D0,77 
240 DATA 23,13,08,78,B1,20,EF,DB 
250 DATA AB,18,14,DB,AB,47,CB,3F 
260 DATA CB,3F,CB,9F,CB,3F,80,D3 
270 DATA AB,C9,01,FF,SF ,ED,BO,E6 
280 DATA FO,D3,A8,ED,7B,FE,FI,E1 
290 DATA D1,CL,FÍ,FB,C9,00,00,00 


Você pode também programar as teclas de funções 
com os comandos de SALVAR, RECUPERAR e TROCAR 
programas na RAM oculta para facilitar a operação do 
programa em L.M. 


BIBLIOGRAFIA RECOMENDADA: 


Aprotundando-se no MSX - capítulos 06 1. 
Programação Avançada em MSX - capítulo 1. 
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7.K - ROTACIONANDO CARACTERES 


guir permite a 
com letras "deitadas! Melhor do que t 
entender o que o programa faz. é rodá-lo e oberval 
efeito. 

O programa em BASIG serve para gerar uma rotina 
em Linguagem de Méquina. Ao ser chamada por uma 
instrução USR, o caractere cujo código é passado como 
parâmetro será “girado” de 9 

Analise as linhas di a 240 para entender 
melhor como a rotina deve ser usada. 


10 REM 

20 REM GIRA CARACTERES NA SCREEN 4 
30 REM 

100 CLEAR 300, &HCFFF 

110 SCREEN 4 

120 DEFINT À 

130 DEFUSRO=&HDOOO 

140 FOR F=8HDO00 TO &HDQI3 1 
150 READ ASEA=VAL(“RHT HAS) 

160  POKE F,A 

470 NEXT F 

180 INPUT “MENSAGEM”; AS 

190 PRINT 

200 FOR F=1 TO LEN(AS) 

210  A=ASCCMIDSCAS,F,1))xB 

220 PRINT CHR$(A/8) 

230 — X=USROCA) 

240 NEXT F 

250 GOTO 250 

260 REM 

270 DATA 29,29,5E,29,56,62,68,E5 
280 DATA 01,08,00,11,2C,D0,D5,CD 
890 DATA 39,00-D1 Ei, 06, 0805, 06 
300 DATA 7 

310 DATA 
320 DATA C4,10,EB,C9,00,00,00,00 
330 DATA 00,00,00,00 


BIBLIOGRAFIA RECOMENDADA: 
Linguagem de Máquina MSX - páginas 148 a 143. 
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7.1 - ROTINA DE ENTRADA GOM INKEY$ 


A rotina apresentada a seguir permite a intro- 
dução de dados em programas através da Instrução 


AS linhas de 100 a 178 simulam um programa 
qualquer, À única linha realmente necessária é à Linh 
118. onde uma função-string para posicionamento do 
cursor é definida. A rotina de entrada efetivament 
começa na linha 

do ser chamada, a sub-rotina da linha 1800 deve 
receber a LINHA (na variável LI) e a COLUNA (na 
variável CO) em que os dados introduzidos deverão 
aparecer ma tela. Além disso deve-se também fornecer 
tos caracteres poderão ser introduzidos, isto é. O 
TAMANHO DA LINHA (na variável TL) à ser introduzida 

Para entrar dados com essa rotina, dispõe-se 
seguintes funçõess 


nserção 
osição 
a linha já introduzid 


Ao retornar da sub-rotina (quando se digit 
RETURN), o programa tráz na variável L$ a linha 
introduzida. 

Essa rotina pode ser particularmente útil nos 
programas de gerenciamento de dados, em que ao serem 
introduzidas, as Informações de cada campo devem sei 
apresentadas de forma estética na tela. 


100 SCREEN O : WIDTH 39 

110 DEF FNPCSCLI,CO)=CHR$(27) +74 
CHR$CLILIZ)+CHR$CCO+32) 

420 INPUT “LINHA?“GLI 

430 INPUT “COLUNA:É ECO 

140 INPUT “NO CARACTERES!“ TL 

150 GOSUB 1000 

460 PRINT & PRINT, rzronro L$="5LS 

170, 1E STRIGCO) THEKTRÚN"ELSE 170 

1010 " SUB-ROTINA PARA ENTRAR LINHA 

1020 * 

1030 L$ = 

1040 PRINT ENPCSCLI,CO);”.”; 

1050 IS=INKEYS 

1060 IF 18="” THEN 1050 

1070 IF 15)=" “ AND I5(=C” THEN 4230 

1080 C=CO+LENCLS)2PRINT FNPOSCLI,C); 
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090 
100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
»+15 
1250 
1260 
1270 
1280 
1290 


IF LENCLS)CTL THEN PRINT” “ 


I=ASC(IS) 
IF I <> & THEN 4170 


IF LENC(L$)=0 THEN 1140 
LS=LEFTS(LS LENCLS) 4) 
C = CO 2 PRINT FNPCSCLI,C); 


PRINT L$;7.” 
BOTO 1050 
TF 1.4) 12 THEN t220 


PRINT ENPCSCLI,CO)5”.”p 
PRINT STRINGSCTL-1,") 


GoTo 1050 
IF 1 = 43 THEN RETURN 


IF LENCLS)CTL THEN L$=L$+16 
IF LENCL$)=TL THEN LS=LEFTSCLS, TL=4 


C=C0-1+LENCLS) 
PRINT ENPCSCLI,C); 
PRINT 1%; 


IF LENCL$)CTL THEN PRINT.” 


BOTO 1050 


Ema 

Ea 

"Bs EM 
[Erro 

[TA] 

msi 

ç [E] 
CLs 
Ena 

"RETURN ER 
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7.M - ROTINA PARA MAIÓSCULAS 


O programa apresentado abaixo gera uma pequen 
rotina em Linguagem de Máquina que passa todas as 
tetras comuns minúsculas de uma string para 
maiúsculas. 

Experimente rodá-lo e introduza algumas 
sequências de letras minúsculas. Note que a string 
passada como parâmetro da função USR. 


100 CLEAR 300,&HBFFF 

110 FOR 1 = &/CO0O TO aHcozs 

e E Pa 

VAL (CANAS) 

140 NEXT 1 pro] 

150 DATA 3A,63,Fó,FE,03,C0,24,F8 Furna 

160 DATA F7,7E,B7,C8,47,23,5E,23 Ea 

170 DATA 66,6B,7E,FE,61,38,07,FE Ea 

180 DATA 7B,30,09,D6,20,7/,23,10 EcmI 
Ee] 
oro] 
eLERI 
Era 
Mio 


190 DATA Fá,C9 

200 DEFUSRO=&HCOGO 
210 INPUT X5 

220 PRINT USRO(X5) 
230 G0TO 210 
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7.M - REDUZINDO A TELA A UM CARACTERE 


Você sabe que podemos usar o comando WIDTH 
as telas de texto de modo a fazê-las ficar com ape 
uma coluna. Experimente comandar « 


WIDTH 4 


Agora a tela tem apenas uma coluna. Para voltar 
ao normal, basta usar novamente o comando WIDT| 
Um fato menos conhecido é a possibilidade de 
tazer com que a tela tenha apenas 1 Linha. Para Isso, 
entretanto. não existe um comando dedicado do BASIC e 
é necessário usar o comando POKE para alterar o valor 
de uma variável do sistema, a CRTCNT, em BHF3B1. 
Experimente comandar: 


POKE &HF3B4,1 
Com isso a tela de 


Fá ficar com apenas uma 


Para reduzir à 
usar o par de comando: 


WIDTHA 2POKE&HFIBA, É 
isso, entretanto, tornará o teclado Ino 


você perderá o controle sobre o micro. 
cuidado ao usar esta dica | 


a a apenas um caractere, basta 


ante é 


BIBLIOGRAFIA RECOMENDADA, 
Aprofundando-se no MSX - pagina 47. 
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7.0 - GRANDES EXPOENTES 


Recentemente, astrônomos americanos detectaram o 
que parecem ser galáxias em formação a 17 bilhões de 
anos-luz da Terral Estes objetos estariam qua: 
limite do Universo observável, cujo raio, hoje, é 
estimado em 20 bilhões de anos-luz, 

Aproveitando que você tem um computador na 
trente. você resolve calcular o raio do Universo em 
metros. 

O cálculo é simples (pelo menos no computador! ), 
você sabe que a luz Se propaga com uma velocidade de 
300.000 quilômetros por segundo. Basta portanto 
multiplicar esta velocidade 3% - 000 m/s pelo 
número de segundos em 20 bi Lhõi anos (lembr 
que o ano tem 365 dias de 24 horas de 68 minutos de 66 
segundos), 

Digite, então. o seguinte programinhar 


10 R=I00000000H%20000000000H% 3654244 6046 
) 
20 PRINT"RAIO DO UNIVERSO=";R;“METROS” Eid 


Rodando-o. você deve obter a considerável quantia 
de 1,89216 vezes 10 elevado à potência 26] 
rapidez de cálculo do seu MSX. 
cular o volume do Universo (supondo 
Ingenuamente que ele seja esférico 
Lembrando que o volume de uma estera é dado pela 
expressão: 


3 
V= 4,3.R 


Você. então, completa seu programinha com as 
seguintes linhas 


30 PI=AXATNCI) pleisã 
AO X=(4/3)mPI Es 
50 V=xeRia [IFIE 
40 PRINT/VOLUME DO UNIVERSO= 


Ao rodar seu programa assim incrementado, você 
tem a decepção de obter um “overflow in 59”, pois você 
“estourou” a capacidade de cálculo do MSX. 

Nesta dica, vamos apresentar como contornar o 
problema de expoentes grandes demais. Basta lembrar 
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ques 
log (AxB) = log À + log B 
log A = nx log A 
Substitua as linhas 58 e 60 por: 


100 LU=LOGCX)+38LOGCR) sea 
149 LD=LV/LOG(IO) eai 
120 E=INTCLD) [EE] 
130 M=10º(LD-E) [E] 
140 AG=STRE(M)4/E4/+STR$CE) EIS 
150 PRINT"VOL. DO UNIVERSO=";A$;“M.C.” EEBa 


Na linha 180 você calcula o logarítmo neperiano 
do volume (o MSX só trabalha com logarítmos naturais). 
Na linha 110 você transforma o log natural em log 
decimal (é só dividir por LOG(10): esta é mais uma 
dica importante). 

Para entender as linhas 120 
se, por exemplo. 


130, lembre-se que 


log x = 79/4529 
então 


04529 79 
* = 10 * 40 


Portanto, toda vez que você se defrontar com 
números demasiadamente grandes para seu MSX, basta 
calcular seu logaritmo decimal. pegar a parte Inteira 
com expoente de 10 o descobrir o multiplicando na 
frente dele, operando como aprendemos. 
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NOTAS SDBHE A DLBLLDGHAFIA HESIMENDADA 


Como você deve ter percebido. as dicas deste 
livro foram apresentadas de forma bem prática é 
resumida, de modo à poderem ser usadas imediatamente, 
Se você quiser obter maiores detalhes sob! o 
funcionamento de cada uma delas é recomendável estudar 
detalhadamente os livros citados na “BIBLIOGRAFIA 
RECOMENDADA”, ao final de cada dica. A seguir 
apresentamos um resumo do conteúdo de cada um desses 
Livros para melhor orientá-lo. 


LINGUAGEM BASIG MSX 

Uma “enciclopédia” do BASIG M$X. com a sintaxe, função 
e exemplo de cada palavra do BASIC MSX. 

CURSO DE BASIC MSX v.1 

Uma introdução clara e didática ao BASIC residente do 
MSX, apresentada em 8 aulas com exercícios (a suas 
respostas! ). 

COLEÇÃO DE PROGRAMAS PARA MSX v.1 e v.2 

Programas didáticos. aplicativos e utilitários 
explicados passo a passo para que o leitor aprenda a 
fazer seus próprios programas. 

APROFUNDANDO-SE NO MSX 

O "best seller” da literatura técnica sobre MSX, com a 
descrição detalhada da arquitetura da máquina e de 
cada uma de suas partes. 

PROGRAMAÇÃO AVANÇADA EM MSX 

Exemplos e rotinas utilitárias em ASSEMBLY ensinando 
ao leitor como se obtém o máximo das máquinas MSX. 
LINGUAGEM DE MÁQUINA MSX 

Uma introdução completa e didática aos poderosos 
recursos da Linguagem de Máquina ZB0 aplicada aos 
micros M5X. Contém as instruções secretas do Z80. 
USANDO O DISK DRIVE NO MSX 

O MSXDOS, O CP/M para MSX 8 o DISK BASIC comentados 
exaustivamente 

SISTEMA DE DISCO PARA MSX 

O SOLXDOS e o BASIC de DISCO comentados passo a passo 
de forma clara e didática. 

DRIVES LEOPARD DE 3 1/27 

O primeiro livro sobre drives de 3 1/2” editado no 
Brasil. Contém todos os recursos do MSXDOS e do DISK 
BASIC MSX aplicados aos drives de 3 1/2” 
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Para receber gratuitamente o 
boletim informativo da ALEPH, contendo 
dicas de programação, artigos técnicos é 
informações sobre os últimos lançamentos 
para seu micro, envie seu nome e 
endereço completos (incluindo o GEP) 
para: 


EDITORA ALEPH 
Gaixa Postal: 20.707 
91496 Paulo SP 


Se você quiser adquirir todos os 
programas com mais de 512 bytes listados 
neste livro já gravados em DISCO (apenas 


em discolll), entre em contato conosco. 
Para comprar nossos livros pelo 
correio, informe-se escrevendo ou 


telefonando para nós. 
Nosso teletone é: 


(911) B43-a202 
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PoE MSX 45 b 


100 DICAS PARA MSX 


Ao longo de dois anos trabalhando com micros MSX pudemos 
atender a milhares (sem exagero!) de dúvidas sobre essas máquinas. 

Esquentando a orelha ao telefone, atolando em montanhas de car- 
tas, ou atendendo pessoalmente nossos leitores, surgiram as mais de cem 
dicas publicadas neste livro, como uma espécie de resposta coletiva. 

Apesar de apelarmos frequentemente para o uso da Linguagem de 
Máquina, todos os programas listados neste livro estão em BASIC, prontos 
para serem usados e com checagem automática para detecção de erros de 
digitação. 

Esperamos com isso abrir novos horizontes aos nossos leitores, 
tanto aos mais experientes quanto aos principiantes. 


WNEditora 


Aleph 


